



























Os programas originais que nos foram enviados pelos 
amáveis leitores durante o mês de Abril, e que gostaríamos 
“de ter premiado em Maio, não apresentam condições 
suficientes para a sua inclusão neste número de «JOGOS 
SORTIDOS». Alguns deles não são, de facto, originais e 
outros apresentam anomalias técnicas que dificultam ou 
impedem a sua utilização. Esperamos melhor sorte para 
aqueles que se encontram a ser testados e que teremos 
muito prazer em publicar nos próximos números de 
«JOGOS SORTIDOS». 
Entretanto, repetimos o convite: se se julga capaz de 
imaginar um jogo original, susceptível de interessar os 
restantes leitores de «JOGOS SORTIDOS», aproveite a 
pausa do Verão e envie-nos o produto do seu trabalho e 
imaginação. As nossas páginas continuam abertas a todas 
as produções com alguma qualidade. 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PRÊMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 
1. Nome, morada, idade e n.º de telefone. 
ao programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


?ara: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. — 1200 LISBOA 
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DRÁCULA 


Escrito por Luis Villalba, para o Spectrum 48K. Deve-se 
introduzir todas as maiúsculas carregando em modo 
gráfico. 

O vil e superconhecido vampiro Drácula continua a 
fazer das suas em terras da Pensilvânia. Para acabar 
com este ambiente de terror o nosso herói montou 
























guarda à fortaleza que serve de morada do terrível 
«sugasangue». O castelo tem quatro pisos e 125 casas 
por onde espreitam os vampiros que estão enfeitiçados 
pelo Drácula e impedem o nosso protagonista de con- 
tinuar a sua busca. A sua tarefa não é fácil e tem que 
ser ajudada com uma cruz para afugentar os vampiros. 






loss loveDoEdvalEOlL? 








S BORDER O. PAPER Q INK c 32 DATA “210055150001000372EFEO 
LEAR S9995 PRINT AT 10.0, FLASH os DESA 
1;" | ESPERA. CARGANDO LINERS DA É E1ODSFERFDSFEO Ea LIOFEE 
10 LET n=Senaa. FOR e TO sa A. "BIZPEERAZOEOZIVOsCIIO 
STEP 2: LET c=0. REAL FOR 140 clIIs +o 
i=1 TO 25 STEP 2 ATA "QOBICOISEDENCASEGAZAD 
12 LET 6+(CODE agti 4EAZ7' 1305 ne. 
AND aStil>"aV) SCODE ast 40 DATR “2877282204EACEIOZADEE ass 
(7. BND agtisi) san dl Az7Bs" 1543 0E. 
14 POKE n.b: LET n=041 eb 7 2DBEROIEVOZZIVOS 
IF ccra THEN PRIN 28. 
N GATA EN LINEA “;L sToR 2sa 
16 NEXT | + 
30 DATA “EDSFeF2Evellvassoldoo Es 
aEDEO" 10 isa 











VILLALBA 


adm 8 = DE 


188 FRINT AT &, 
-> CINSTUCCIONES 
-- JUGAR 

110 IF INKEY$ 

2o IF INKEvS 











FLASH 1; 5 
“ OTRA TECLA 





HEN GO TO 110 
THEN GO TO 4 





























LET 3$=" BRACO ES UN 
E VIVE EN UN TETRICO € 
Ú ES LA DE DEST 
L DE LOS UAMPIR 
Fu VICTIMAS DE 
140 T ag= ARA ELLO DEBER 
AS ENCONTRAR LUZ CON LA QUE 
PODRAS LUCHA RA A CARA CON 
DRACO. PERO LEGAR A DRACO 
DEBERAS COGE O A UNO LOS CI 
NCO CANDELAE DEJARLOS EN LA 
3 HABITACION CURAS POR LAS 
QUE NO SE PU SAR SIN ELLOS. 
145 LET UBE 4000 
150 LET STILLO TIENE | 
125 HABI Y CUATRO PIS 
OS DE ALT PRIMER PISO 
ESTA LA C DA, ES UNA ZO 
NA DE VA TIENE sao LA 
Si EL, SEG ZONA DONDE SE 
REPARTEN 
160 LET TI 
ENE cOMO FI 5 
ALAS. EL TAMBIEN DE UA 
MEIROS. EL DEL 
AS HABIT Y DONDE 
REPOSA ATAUD. SUERTE 
VAL IENT 
165. LET UE 4000 
179 LET ++ + «COMIENZAS TU A 
VENTURA EN LA PUERTA CE ENTRADA 
AL O ILLO Y TU MISION ACABARA 
CuaN EL CONTADOR DE TUS LIT 
R GOTE A MEDIDA 


ME IR 





Ho 
mr 








DRÁCULA 


A-— ABAJGO- 
-  DERECHAM- 


IZQUIERDA 
SOLTAR CANDE 
LEBRO EN LAS HABITAC 
IONES CON ESCA- LERAS HACIA ARRI 
BR O COM VAMPI- RUS HO PODRAS 
LTAR CANDELHEROS 

185 LET x=13 GO SUE soou 
400 RANDOMIZE USR 60054 RANDOM 
IZE LET c=INT (RND+S0) +76 

402 5: LET & 





O 





















405 LET v=1 

LET so: LET 
ET y= PRINT AT 17, 
3; "ESPERA UN 


HÔMENTO" 
410 RESTORE 460 
450 DIM U$(125,3) 

25. READ à$: LE 


n 
“44, 
q" eu 





4se DATA 








NT (RND+24) +42 





IF us 








im = mom 
ADA ADA 


mm 
D+ 


cÊc aróracor ar 







o) 


Er TIrm 
nem -: 


E 
L 
1 


a 


2,24 





04 DRA 143 
ER o PLOT 5 
RAU 143,0. D 





,175. DRAU 0,-47 
ly 0.47: QUER 1 
ugiz,1)=4 THEN Go TO 


U$(z,1))=2 THEN PLOT 
9,42: DRAU 11,13. D 








RAU Q,-35 DRAW -20. PRINT A 





4,800 plot dó 55" PbRáu citiona 
í as w -ii,o 
Em I2ouT] 





O IF VAL us(z,1)<=2 THEN PLOT 
Bar, 76 RAU 0,42. DRAW -11,13 
DRA Q,-35' DRAW 11,-20: PRINT 

BT 10,27); ENK 12 QUER Q;" “iara 
Fic cd rhid LOT 215,93 DRAU 11,8 
REM ESSSE 

IF VAL ug(z,2)=4 


VAL U$(z,2) <=2 THEN PLOT 
GRAU 19,0: DRAU d,24 

DRAU Q,-24 PRINT AT 

É PRINT AT 4,15 


:E)o=2 THEN INK 
DREU 0,40. DRAU 


; ; R 

a CRAL Q,-40 NTEET 15,14 
E õ REM 
SSS IF us(z,.3)="S" OR Ugiz.3)=" 
THEN GO TO 70 


2 
S60 QUER OQ TE AL 
(SAL USIZ) HEN 











THEN Go TO 











UG iz) 43=INT 
RANDÔMIZE z 











FOR n=1 To E Erê) INK 6: P 
LOT 45*RNC+150,32+RND+90' DRAW 3 
CRAU 7 DRA -24,0 CRAU 
-7 DRA ,0 INK 4: DRAU O, 
DRA ORAL 3,0: DRA Q,- 





CRAL Q,4 DRAL 15,8. DRAL O 


3.0 GRAU q, 








LI+UAL US(Z,2)4 





=1 TO VAL 
91,2). INK E 
+RND420 DRA 
“GRAU -19.0: D 
RA O,-12 





















DE 





nO 
nLDOUN D 


no 
nm) 





GRAU 17-44n, 
CRÁLI “1744400 
MEXT nº PRINT 
BRIGHT 1,CHR$ (1 
VAL us oem 

IF US(Z+25-150 AND 
="1º THEN PLOT sã&s+2+ (VAL 
ND UJAL U$IZ)< 100). 1004 (4 


nan 


*09»»1 LDO 


Ha 









ANO DAL u$(zI- 100) DRA 

CrRAaU -E.-4  DRAL 15.0 
GRAU 0,30, DR 

-10 GRAU - 





S,e DRAL Q,-17 
640 IF VAL us 1)=1 AND VAL US 
(2,2) :3 THEN FOR n TO 12 FRIN 








TATn.3 NEXT nº INK 6: P 
LoOT 41.72 ORAL E,12: DRA Q,40 
DRAL -3.8 BRAU -3,-15. DRAU O, 
-44 DRAW -15,0 DRAU 2,45: DRAU 
15.0 DRAW 3 DRAL Q,-39 DRA 
4 2.30  DRAU DRALU “3,8: DRA 

U -15;0 DRAW -16 

a208 IF ustz q” THEN GO TO 
752 INK 7: FOR n=l TO 11: PRINT 
AT ndo! cv NEXT nº FOR n 

2 To 6 PRINT AT nd; INK 6; 

AT n4s.3 “o NEXT no PRINT AT à 


FOR n=1 TO &. O 
& DRAU -24.0: 6 
9,-8- DRAU 25,0 
+8 DRAU 2,6 MEXT nº INK 
0,-3 DRAW -16 E 
z-100 THEN TO 
US(Z+25,31= THEN INK 
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5 DRAU 4.2 
RAI DRAU O.-S 
2. DREAL OVER O. -3SL.0 O 
1 

o 





DRAU 24,0. PRINT AT 












758 IF UAL usiz+25 
U$G(Z7+25):21 THEN IHk 
(EV); PLOT 101,145 
Au -7,8 
DRAU S 
&. DRAU 
u za,28 

so00' IF z=1.Al 
+ 1906 

85,3: 

U -Si= 

RAU 25,5: 

+ATS, 
LriaT 

ade IF 
at JUda PRINT 

ATn,Ã 

Soa IF ="3º"OR US Iz,3)=" 
S” THEN 16,27; INK'S, B 
RIGHT 1 CAP Ara Shi 

10 IF ATHEN FOR nes TO 
PRINT A EXT n: PR 
NT AT 2 sRfowr"i; to 
FRT 44, Ta PEnBs 0: ELA 
SH 2; NT LA CRU 
VEDES E TARTE CON BRACO. SUE 
RTEM. 

812 IF Z=r THEN FOR n=1 TO 12 
BEEP .0S,n: NEXT n. PAUSE O: PAU 
SE O: LET r=0: RANDOMIZE USR 600 
SS: Go TO soa 
900 OUER 1. INK 7, PRINT ATcdyk 
; INK 8;CHR$ (b+1-(2 AND b=15 
“AT cs AaXiCHRS b: TF US(z,9)="2" 

THEN PRINT AT V.h; INK 8/“y 
1005 IF INKEYS="Pº AND ATTR (y,x 
+1)<>6 THEN GO SUB 2000: LET X=x 
+12: PRINT INK S;AT y,X;CDº;AT y- 
1,x;"C": LET b=1466: TF ATTR (y,x 
)=1/ THEN LET x=5: LET z=2+1: 60 
TO soa 
1010 IF INKEy$="0" AND ATTR (4,x 
211056 THEN GO SUB 2000. LET X2x 


DRÁCULA . 








PRINT INK S;AT PºBriAT y- 
LET aa: LE ATT ty ax 
“THEN LET x=26. LET z=2-1: 6 
TO seo 

1020 TP INKEyS="q” AND ATIR E! 
0 €56 THEN GO SUB o y 
Co PRINT BT 9,2% INK 9 
-1,x; "6": LET b=is0 ty> 
1,X) =0 THEN LET J=17: x+(4 
-X AND x49). LET z=7-5-(20 AND x 

<8): 60 TO Sad 
1050 IF INKEY$S="a (y+1 
,X) 456 THEN 6 gs 
+1: PRINT AT y, ao 





“o 
x)=0 THEN LET y=6-(4 AND x<8): L 
ET x=x+(7-x AND x(8): LET Z=2+5+ 
(20 AND x<8): GO TO so8 
1040 IF INKEY THEN IF c=1 T 
HEN IF vet, 13) 13) =" 









OR us(z E 
RINT AT 20,26; 
AT 6, 






















2 g RIGHT í, "kr, AT 
RAI 60120: 
LET us t AN 
us(z,3) +("s" AN 
Ei T í 
1090 HEEnére SE 
1100 IF usiz,3 Eq THEN BRINT 
NK B;AT voh;Úd". LET vev+i-(2 
B' uid RbEa 1 Eva AND Iv do 
LÊT'nSh-1202 AND 25h). PRINT AT 
voh; INK 8/3 x=h AND y=v 
THEN GO TO 3odo 
1120 TF cso THEM IF xay=s42 THEN 
IF v$(z,3)="32" OR u$CZ,3)="15" 
HEN LET C=1. RANDOMIZE USR “s6120 
PRINT AT 16,87; QUER 0, 
17,87," “;AT E INK 3; PAPER 
6; r'21.2 LET US (Z 
8 + ugtz, ars” 
) tus 
1 THEN IF 
1 
2000 PRINT AT 4,x; INK 8;CHRS (b 
1-(2 AND b=1SQN/AT y-1,x; CHR$ 
b. RETURN 
3000 RANDOMIZE USR 50120. RANDOM 





IZE usn so009 LET LET KEé 
185 56 ud» (aõão AND 
Ro 
3500 PRINT AT 0,0; FLASH 1;" TER 
HINASTE TU MESTÓN x SERAS UN VAM 
PIRO MAS EN AS TIN 
IEBLAS. es) “ 
3516 IF CODE INKEY$<>13 THEN GO 
TO 3510 
as20 60 TO 100 
1900 PRINT AT 18,0; “FT—s 
E 
FOR m=1 TO x: PRINT AT 19,0 
“SK O;as( TO 32): LET ag=a8(33 
TO»: PRINT AT 20,0; PAPER S,,: 
FOR n=0 TO 31: PR Ent 8 AT ÃS,n; 
5 INK 7; 
EER s505,5. Ter! nº RANDOMIZE | us 
3582 


2 
4020 RANDOMIZE USR 60000 





RETURN 
5000 PRINT AT 12,11, DOUER 1; "HM"; 
o + BEEP 1 
17 NT AT n-1 
H ER O:" “,ATn, “ART n+41 
+S; "Ho RANDOMIZE USR GB120. MEX 
Tn 
SO6O FOR n=1 TO 15. RANDOMIZE U 
R 60120 RANDOMIZE RINT 5 
18. QUER 1, CHRS (32+RND4991;AT 1 
&,9.CHR$ (32+RND+99) NEXT n 
so7o SENDER USR 60000: PRINT 
AT 2,0, ASH 1: POR FIN. CON 
GUISTE ACABAR COM LA MALDICION D 
EL CASTILLO DE “Cor4"D RA CO, 
PAS PRINT Cor u SA ENT 


SoSô IF INKEVS=" 
Sosa Go TO 100 


* THEN GO TO sos 


[e] 





TEMPO DE ACÇÃO 


Por Robert Burgess, para o Spectrum, este jogo de 
é apresentado em cinco écrans diferentes dese- 
nhados com pequenos quadrados. O objectivo em cada 
nível é «pintar» todos os quadrados (15 ao baixo x 9 


acção 


ao alto) de verde. 


Para o impedir existe uma pequena gota hostil e ainda 


1 REM ROBERT BURGESS 19 


2 REM DEDICATED TO MY IMMORTA 
L HEROES,PLUS MUM,DAD,PC,PL,55,D 
ANIEL EYE ,MIKE COLE OF ATLANTI 
S SOFTWARE AND THE REST. 

5 REM TUNES BY RIG 

5 CLEAR 59999 


10 POKE 23609,50: POKE 23658,8 





2: DIM W$(704): DIM C(4,2): LET S 
+35 
20 BORDER 6: PAPER 6: INK 1: E 
Ls 


23 REM LARGE LETTERING NOTE-F 
RINTES MUST BE  TURNED OFF OR DI 
SCONNECTED BEFORE LOADING 

24 FOR F=72 TO 79: POKE 23681, 
F: LPRINT TIME FOR AC 

Tai DEN NEXT F 
26 PRINT AT 3,10; PAPER 7; INK 
2; "PLEASE WAIT";AT 20,5; PAPER 
75 INK 2; ROBERT BURGESS 1986" 
27 60 SUB 900 
28 BEEP .1,10: 





CLS : GO SUB 61 
5 

29' LET L=1: LET S=0 

32 PRINT AT 6,3; INK 0; "ROBERT 
J. BURGESS PRESENTS";AT 20,13; 
PAPER 4; INK O; 19B6";AT 12,4; 
PAPER 6; INK 1; "PRESS L — LOAD 
HI-SCORES";AT 13,5;"S - REDEFINE 
CHARS SET";AT 14,5;"Q — CHANGE 
SKILL LEVEL";AT 15,12;"P — PLAY" 


28 





umas bombas que deverá apanhar antes da sua explo- 
são, pois elas representam perda de pontuação. 

O controlo para a esquerda e direita são: O-P. Para, 
cima e para baixo são: Q-A. 


Nota: Antes de jogar desligue a impressora ou qualquer 





A 


35 PRINT AT 9,5; PAPER 7; INK 
— TIME FOR ACTION — " 
37 FOR F=5 TO 535 STEP .5: DEEP 
-005,F: BEEP .005,F+2: NEXT F 
39 REM LINE 40-POKES STOP PROG 
RAM NAMEAPPEARING WHEN LOADING H 
I-SCORES 


interface que esteja ligado. 


E 


40 IF INKEY$="L" THEN LET ZX= 
PEEK 23739: LET ZA=PEEK 23740: P 
DKE 23739,82: POKE 23740,0: LOAD 





“” DATA H$O: LOAD "! DATA HO: 
POKE 23739,2X: POKE 23740, ZA: P 
AUSE 5: BEEP .1,3 


42 IF INKEY$="S" THEN 60 TO 7 
oo 

44 IF INKEV$="P" THEN GO TO 6 
o 

46 IF INKEY$="9" THEN GO SUB 
ss 

50 G0 TO 40 : 

55 PRINT AT 17,5; "PRESS ANY KE 
Y BETWEEN O";AT 18,55" (HARDER) A 
ND 9 (EASIER)": BEEP .2,7 

S6 IF INKEy$="" THEN GO TO 56 

57 LET AS=INKEY$: IF CODE A$>5 














7 OR CODE A$<48 THEN GO TO 56 
58 LET SK=0+(VAL A$*.07)1 BEEP 
-1,8: PRINT AT 17,35" 
“FAT 18,35" 
" 


59 GD TO 40 ; 
60 BEEP .25,0: BEEP .25,2: 
«5,43 BEEP .5,4: BEEP .5,0 
100 PRINT AT 0,0; PAPER 2; 


BEE 
[7 


INK 


75"SSSsSsssssssssssssssssssssssss 
SSS";AT 19,0;"s555sssssssssssssss 
S355555Sssssss";AT 21,0/"sssssss 
5555S5555555ssssssssssssss'": 


F=1 TO 20: PRINT AT F,0; PAPER 2 
5 INK 75"S";AT F,3ig"s": NEXT F 
105 FOR G=1 TO 17 STEP 2: PRINT 


TEMPO DE ACÇÃO 





FOR 


PAPER 6; INK O;AT G,1;"IJIJIJI 


SISISTAILITITITITITITITO! SE 
AT G+1l,1; PAPER 6; INK O;F"KLKLK 
LELKLKELKELKLKLKLKLKLKLKULKL! 
EE, 

107 LET X=9: LET v=15: 
109 PAPER 23 INK O 
110 IF L>S THEN GO SUB 490+((L 
-5) 420) 

111 GO SUE 490+.420 

“125 LET Q=i 
128 LET 


LET 6G=48 






3 LET K=R 

130 FOR F=1 TO 4: PRINT AT C(F, 
1),C(F,2); PAPER tz INK 75"mR";A 
TC(FED+,C(F,D;"oR": NEXT F 
134 REM SCROLLING MESSAGE 

135 IF L=1 THEN DIM As$(114): 
ET AS(3O TO )=" 
ION . 





[” 
TIME FOR ACT 
SCORE: 0000 LEVEL: 
1 *: FOR F=1 TO 55: PRINT AT 
20,1; PAPER 75 INK 13A$(F TO F+ 
29): BEEP .03,F/2: NEXT F 
137 PRINT AT PAPER 7; 
K IL á 
140 PRINT AT X,Y; INKy1; PAPER 
CRECGAT X+I,YVEPCDO"SAT A,B; INK 
FAPER 6; BRIGHT 1;"EF";AT A+ 
qBa an! 









20,25; 


IN 











200 LET LX=X: LET Ly=y 

201 IF INKEY$="P" THEN LET Ly= 
Ly+2: G0 TO 290 

205. IF INKEY$ THEN LET Ly= 
LY-2º GO TO'296 

210 IF INKEY$="0" THEN LET LX= 
LX-2: GO TO 290 

215 IF INKEY$="A” THEN LET LX= 
LX+2: GO TO 290 

219 LET V=ATTR (X,Y) 

220 PRINT AT X,Y3 PAPER 6: INK 

AP"AB"GAT X+l,Y;" CD" 

224 IF V=46 THEN BEEF .015,8: 

LET Z=2-1: LET S=5+5 

225 PRINT AT 20,15-(8>9) -(5>99) 
-(8>999); INK 1; PAPER 7;S5 

226 IF V=Z2 THEN BEEF 





227 IF Z=0 THEN GO TO 
230 IF V=112 THEN 
HT BY THE ALIEN": 
234 IF V=15 AND (CtJ,1)4>X OR C 
J,2)<>Y) THEN LET D$="DIFFUSED 
THE WRONG EBOME": GO TO 600 
235 IF V=15 AND C(J,1)=X AND C( 
2)=Y THEN LET S=S+50: RANDOMI 








ZE USR 61000: GO SUE 480 

250 LET LA=A: LET LE=E 

251 IF X>A THEN LET LA=LA+2: 6 
O SUE 280 

252 IF X<A THEN LET LASLA-2: 6 
O SUE 280 

254 IF Y>E THEN LET LE=SLB+2: 6 
O SUE 280 

256 IF V<E THEN LET LESLE-2: G 
O SUE 280 

257 GO TO 260 

259 LET G=ATTR, (A,B) 

260 PRINT AT A,B: INK O; PAPER 


6; BRIGHT 1;"EF";AT A+L,B"GH" 
265 IF 6=49 THEN LET, D$="CAUGH 
T BY THE ALIEN": GO TO 600 





PRINT 





9 THEN PRI 
NT AT C(J,1)+1,C(],2): PAPER 1; 
INK 75K 

271 IF K<10 THEN PRINT AT Co, 
1)+1,C(],2); PAPER 1; INK 75"0"s 
K 

272 IF K=0 THEN LET D$ 
TIME": GO TO 600 

279 60 TO 200 

280 IF (ATTR (LA,LE)=32 OR ATTR 
(LA,LE)=48 OR ATTR (LA,LE)=49) 
AND RND>SK THEN GO SUR 495: LET 
A=LA: LET E=LB: GO TO 259 

281 LET LA=A: LET LB=B: RETURN 
290 IF (ATTR (LX,LY)=48 OR ATTR 
(LX,LY)=112 OR ATTR (LX,LY)=15 
OR ATTR (LX,LY)=Z2) THEN PRINT 
AT X,Y; PAPER 4; INK O;" LU";AT X 





OUT OF 














+L,YEMKLS LET X=LX: LET V=Ly 
292 GO TO 216 

300 PRINT AT 9,12; PAPER 7; INK 
07" ";AT 10,12;" LEVEL 
PELA” NAT 11,125" “ 
305 LET L=L+1 

310 BEEP .75,0: BEEP .25,2: BEE 
P .5,4: BEEP .5,2: BEEP .5,5: EE 
EP .5,4: BEEP .25,2: BEEP .25,-1 
: BEEP .5,0 

315 GO TO 100 

481 LET K=R: LET Q=0+1: LET J=0 
482 IF Q=4 THEN PRINT AT C(9,1 
2 ,C(],2); PAPER 3; INK Os"oR" 
495 IF G=32 THEN PRINT AT AE; 
PAPER 4; INK O! LJ"SAT A+L,B;"k 
Ls RETURN 

496 IF 6=48 THEN PRINT AT AsE 
PAPER 6; INK O" LU“;AT A+1,B; 
Ls RETURN 

497 STOP 


500 REM 510-599 DATA FOR SCREEN 
s 


510 RESTORE 515: FOR F=1 TO 22: 
READ Ai,A2: PRINT AT AL,AZ; "rn" 
:AT Al+1,AZ;"op NEXT F 








Sii LET C(1,1)=13: 


LET ClL,2)=53 





: LET C(2,1)=5: LET C(2,2)=27: L 
ET C(3,1)=5: LET C(3,2)=3: LET C 
(4,1)=13: LET C(4,2) 

513 LET R=60: LET A= E=5: 
LET Z=108 

517 DATA 1,15,3,3,3,9,3,21,3,27 
DDD 27 LDA SAD PA 
041,7,11,15,11,23,15,5,13,25,15, 


3,15,9,15,21 
519 RETURN 


15,27,17515 














ES 


535: FOR F=1 TO 28: 
READ Al,AZ: PRINT AT AL,AZ; "na" 
;AT AL+I AZ; "OP 
531 LET C(i,1) 
: LET C(2,1)=17: LET C(2,2)=29: 
LET C(3,1)=17: LET C(3,2)=1: LET 
C(4,1)=1: LET C(4,2)=1 
5353 LET R=60: LET A=17: LET E=5 
: LET Z=102 

37 DATA. 1,341527,3,553525,5573 
5, 15,5523, 14,047 15, 71 DNA 1774 
1,9,1,99349,27,9,29, 11,9, 11,1351 
1445, 11,17, 112151 17, 18,15, 13,8 


S30 RESTORE 




















15,9, 10,25,1743917,27 

539 RETURN 

SSo RESTORE 555: FOR F=1i TO 26: 
READ AL,AZ: PRINT AT AL,AZE" mn" 
3AT AL+L ,ADE"OR": NEXT F 





551 LET C(i,i)= 
LET C(2,1)=17: LET C(2,2)=1: LE 
T C(3,1)=17: LET C =29: LET 
LET C(4,2)=29 

LET A=17: LET E=1 


LET C(t,2)=1: 









Os 


Poa MR bei op E Ud PO 
1439 1048055), 21,7 90 LULAS PA 
TAS ata La a das 
113,9,13,21,15,11,15,19,17,7,4 





7. 13,17 ,17,17,25 

559 RETURN 

570 RESTORE 575: FOR F=1 TO 30: 
READ AL,AZ: 


FRINTLAT AL,ABp" rara! 
: NEXT F 


FAT AL+1,AZS" 
SZL LET OA LET C(4, 
LET C(2,1)=11: LET C(2,2) 
ET C(3,1)=11: LET C(3,2)=1: 





9 
LET 





C(4,1)=7: LET C(4, 
573 LET R=60: 
* LET Z=100 
577 DATA 1,3,1,15,1 
1 25 NS Sn SS Len id 
EEE coa E PAES AR É Ra Te rg VD 
LEA eo es E Au A e e 
2,1 GAS AOS ASI Led 
7,27 

579 RETURN 

590 RESTORE 595: 
READ A1,A2: PRINT AT G1,A2; 
:AT Al+1,A2 Pe": NEXT F 
S91 LET C(1,1)=9: 
LEFT E(2,1)=133 LI 
ET C(3,1)=9: LET 


2)=29 


LET A=1: LET E=29 


127,3,5,3 













FOR F=1 TO 





c(4,1 
593 LET R=45: LET A=1: LET E=1: 
LET 7=92 

« 597 DATA 3,3,3 DS içã 
5155351743 BD Sa 





DDS 527 7457487 17, TRES 
7,9,25,11,9,11,13,11,17,11,25,13 
Es 1327, 152, 15,56 15, 7045 DAS 
11,15,15,15,17,15,19,15/21,15,23 
,15,25,15,27 

599 RETURN / 

400 REM 601: MACHINE CODE SOUND 
601 RANDOMIZE USR 61500 

609 REM 610: ROUTINE TO CHANGE 
SCREEN COLOUR WHILST KEEPING 'PR 
INTING INTACT 
610 PAPER 6: INK 1: FOR F=4 TO 
6: PRINT OVER 17AT 0,0; PAPER F 
sW$: PAUSE 5: BEEP .02,F: NEXT F 
: BORDER 6: FOR F=1 TO 6: PRINT 
OVER-1:AT-0,0; INK FaW$: FALSE 
FEEP .02,F+6: NEXT F: CLS 

611 GO SUE 615: GO TO 619 
615 PRINT AT 0,0; INK 7; 





PAPER 
29 





FOR 
PAPER 25" 5" 


617 FRINT AT 1,1; FAPER 4; INk 


OP" IJISIJIJIJIJIJTIIZAIJIJISIJIJI 
SPSAT 25); "PRLKLELELELELELELELKELK 
T 19,ip"TUIISTATI TE 
3AT ZO,Ís"KLEL 
KEBERLKLELELKLELELELEKLKLKL": FOR 


LELKLKLEL 
SISISISISIATADATo! 








F=5F TO 17 STEP 2: PRINT AT F,l; 
PAPER 4; INK O! LI”GAT F,29;" IA 
“SAT F+L,ISPELNSAT FAL, DO; KI 
NEXT F 

618 RETURN 

620 PRINT AT 5,11; "GAME OVER";A 
T 8, (32-LEN D$)/2;D$;AT 11,115"S 
CORE: ";S 

621 BEEP .2,0 
«2,4: BEEP .2, 
«2,4: BEEP .4 
EP .2,4: 
BEEP .2,2: BEEP 
625.IF S<=H(11) THEN PAUSE 50: 
GO TO 656 

630 PRINT AT 13,11:"HIGH SCORE" 
3AT 16,9; "ENTER YOUR NAME” 

635 DIM N$(10): INPUT >"; LINE 
N$ 

644 REM JUGGLE 11 NAME HI-SCORE 
TAELE 

645 FOR F=2 TO 11: IF S>H(F) AN 
D S<H(1) THEN FOR G=11 TO F STE 
F -1: LET H$(G)=H$(G-1): LET H(G 
)=H(G-1): NEXT 6: LET HE(F)=N$: 
LET H(F)=S: GO TO 656 

650 NEXT F 

655 FOR G=11 TO 2 STEF -1: LET 
H$(G)=HE(G-1): LET H(G)=H(G-1): 
NEXT G: LET H$(1)=N$: LET H(1)=S 
656 BO SUE 657: GO TO 658 

657 FOR F=3 TO 18: PRINT AT F,3 
KO mn 
EXT F: RETURN 

660 PRINT AT 4,87 PAPER 7; INK 
O; "IMMORTAL HEROES": FOR F=6 TO 
16: PRINT AT F;B;H$(F-5)5! "EHCF 
-5): NEXT F 

670 PRINT AT 18,5;"FRESS S TO S 
AVE TABLE" 

675 IF INKEy$="" THEN 
Ed 

676 REM SAVE HI-SCORE TABLE 

677 IF INKEY$="S" THEN SAVE "H 
ISCORE" DATA H$(): SAVE "HISCORE 
" DATA HO 

sB0 GO SUE 657: GO TO 29 

700 FRINT AT 21,0; INK O; PAPER 
7 PLEASE WAIT 180 SECONDS 














GO TO 67 


270 REM REDEFINE CHARS. SET IN 
3 LINES OF HASIC ! 





7: PRINT AT 21,0; FAFER 7 INK 7 


ER 
+ & 





30. 





TEMPO DE ACÇÃO 








F Che 





3CHR$ N: FOR 0=7 TO O STEP 





F 
OR P=6 TO O STEP -1 
710 IF POINT (F,0)=1 THEN FLOT 


INK 7;F+1,0 

715 NEXT F: FOKE M,PEEK (22432- 
25640): LET M=M+1: NEXT O: NEXT 
N: POKE 23606,96: POKE 27607 ,233 
: GO SUE 615: EEEF .5 Go TO 
30 

900 RESTORE 900: FOR F=0 TO 151 
: READ A: FOKE USK "Ar+F,A: NEXT 
f 

901 DATA 0,48,127,103,103,127,1 
27,112 

905 DATA 0,12,254,230,230,254,2 
54,14 

910 DATA 112,127,63,63,60,124,1 
24,0 

915 DATA 14,254,252,252,60,62,6 
2,0 

920 DATA 0,1,7,31, aa audes 107 
925 DATA 0,128,224,248,252,252 


,5252,282, 








238,214 
930 DATA 127,127,63,62,31,7,1,0 


940 DATA 254,254,252,124,248,22 
4,128,0 

945 DATA 127,128,191,160,160,16 
0,160,160 


950 DATA 254,1,1,1,1,5,5,21 

955 DATA 128,128,128,129,128,13 
1,128,127 

960 DATA 21,21,21,245,5,253,1,2 
54 

965 DATA 126,113,97,115,96,112, 
9,122 


970" DATA 168,170,254,254,0 
1,163 

975 DATA 0,0,254,254,86,14,6,14 
980 DATA 7,171,255,255,0,124,12 
4,84 

981 DATA 0,117,37,37,57,37,0,0 
983 DATA 0,210,20,24,20,210,0,0 
985 DATA 0,24,60,126,126,60,24, 
o 








987 RESTORE 987: FOR » TO 20: 
READ A; FOKE 61000+F,A: NEXT F 
988 DATA 33,10,0,17,3,0,6,200,2 





29,213,197,205,181,3,193,209,225 
,35,16,244,201 

990 RESTORE 990: FOR F=0 TO 47: 
READ A: FOKE 61500+F,A: NEXT F 
992 DATA 243,58,72,92,15,15,1 
8,38,0,1,0,12,8,211,254,278,16,8 
,46,0,85,92,167,237,82,237,82,17 
1148,56,1,61,103,61 





3 





(254 ,0,25,125 


132,253,11,120,177,32,223,251,20 
1 

996 RESTORE 997: DIM H$(11,10): 
FOR F=1 TO 11: READ HE(F): NEXT 
F: DIM H(11): FOR F=1 TO 11: RE 
AD H(F): NEXT F 

997 DATA "GLYNN", "DAVID", “ROBER 
T", "ELIZABETH", "JAYNE", “ANDREW!, 
“KATIE", “MARK, "DAZ/COLIN", “MICH 
MEL", "NICOLA” 





998 DATA 2500 2250, POVO, 1800, 16 
DO, 1400, 1200, 1000, 800, S00, oo 
999 RETURN 

1000 REM SAVE PROG SO NAME AFEAR 
S IN MIDDLE OF SCREEN DURING 
LOADING 

1001 LET St="":; LET S$=S$+CHR$ 2 









2+CHR$ 11+CHRE 1 
7+CHR$ B4+CHR$ 7 
B+CHRE 33 

1002 SAVE S$ LINE 1 


CHR$E 65+CHRE 6 
CHR$ 79+CHR$ 7 











A DEFESA 
DA CIDADE 


seguirão defender a cidade das invasões bárbara neste 
jogo rapidíssimo? Muitos efeitos sonoros. 





E E A a pes Eq nei MU RR 





1 60 SUB 300 
2 G0 SUB 2000 

50 POKE 23658,8 

Si LET KILL=0 

60 BO SUB 600 

70 LET X=10: LET v=16: LET y2= 
136: LET X2=92 

71 LET LE=1 

90 IF LE=1, THEN LET Es="p" 

91 IF LE=2 THEN LET Ese" 

92 IF LE=3 THEN LET Es="7" 

93 IF LE=4 THEN LET Es=". 
120 G0 SUB 800 

130 PRINT AT X,Y5 INK 7; BRIGHT 
Itu 

140 PRINT AT 4,B5 
6+1)3E$ 

141 LET Xi=X: LET vi=y 

150 IF INKEY$="Q" AND X>3 THEN 
LET X=X-1: LET X2=X2+8 

160 IF INKEY$S="A" AND X<15 THEN 

LET X=X+1: LET X2=X2-8 

170 IF INKEY$="0" AND Y>15 THEN 

LET Y=y-12 LET y2=Y2-g 

180 IF INKEY$="P" AND Y<30 THEN 

LET V=y+1: LET Y2=y2+8 

190 IF X=X1 AND Y=Y1i THEN 60 T 
0 201 

200 PRINT AT Xl,vis" " 
201 IF INKEY$S<>"M" THEN 60 TO 
230 

210 PLOT Y2,X2: DRAW (255-Y2),0 
: OVER 1: BEEP .001,26: PLOT Y2, 
X2º DRAW (255-Y2 
340 


INK INT (RND* 





, 


211 OVER O 

220 IF X=A AND Y<B THEN 60 TO 
9200 

230 LET MO=INT (RND+*3) 

240 IF MO=1 OR MO=2 THEN LET B 
=B-2: PRINT AT A,B+2;" 

250 IF MO=O0 THEN LET A=A+i: PR 
INT AT A-1,B;" 

260 IF B<2 THEN LET B=31 ! 
261 IF A=16 THEN LET HIT=HIT+1 
: PRINT AT O,20;HIT;AT 17,By "ri 
“3AT 18,B;"himP: R 
ANDOMIZE USR 50000: RANDOMIZE US 
R 50000: BORDER O: PRINT AT 17,B 
3 INK 3; BRIGHT 

13" “AT 18,B;” ": 60 SUB 800 
262 IF HIT=5 THEN LET HIT=0: L 


ET LV=LV-i: PRINT AT O0,20;HIT;AT 


O,SiFLV 

263 IF LV=0 THEN “Bo TO 1000 
264 RANDOMIZE USR 63000 

265 RANDOMIZE USR 63100 

266 60 TO 130 

300 RESTORE 400 

301 FOR q=1i TO 12 . 
310 READ a$: FOR p=0 TO 7: READ 
a: POKE USR a$+p,a: NEXT p 

S20 NEXT q 


400 DATA "1" ,255,255,201,201,2 
55,201,201,255 

410 DATA "ou 1050,0524,60/ 126,2 
55,255 

420 DATA "..",56,124,238,247,22 


3,94,120,24 
430 DATA "1:",24,24,24,24,56,92 
3 


A DEFESA DA CIDADE 


1166, 166 

440 DATA "+." ,255,255,0,0,0,0,0 
1124 

450 DATA "Fr ",124,0,0,0,0,0,255 
"255 

460 DATA "i:",240,216,110,55,11 
0,216,240,0 

470 DATA ":",36,8,82,32,132,18 
520,4 

480 DATA " 1",8,40,24,92,62,106 
184,56 , 

490 DATA ".1",60,102,255,153,25 
5,102,60,0 

500 DATA "=: ",1,3,3,61,65,255,6 
347 

510 DATA "1 ",126,16,8,255,255, 
8,16,126 


511 RESTORE 519 

312 FOR P=50000 TO 50016: READ 
A: POKE P,A: NEXT P 

319 DATA 33,0,10,43,126,211,254 
16,7,9,92,73,175,132,200,248,-14 
520 RESTORE 540 

530 FOR P=63000 TO 63025: READ 
A: POKE P,A: NEXT P 

540 DATA 33,32,80,14,8,865,6,31, 
30,126,43,119,35,16,=7,114,6,31, 
43 ,16,-3,36,13,3 

2,-20,201 

941 RESTORE 550 

344 FOR P=63100 TO 63125: READ 
A: POKE P,A: NEXT P 

550 DATA 33,64,80,14,8,864,6,31, 
35,126,43,119,35,16,-7,114,6,31, 
43,16,-3,36,13,3 
2,-20,201 

360 LET HI=0 

590 RETURN 

600 PAPER O: INK 7: BORDER O: € 
LS 

610 LET SC=O0: LET HIT=O0: LET LV 
=3 

620 PRINT AT '0,0;"SCORE ";SC;aAT 
0,15; "HITS "sHIT;AT 0,305" "gl 
V 

630 FLOT 0,160: DRAW 255,0 

640 PLOT 0,164: DRAW 255,0 

650 PRINT-AT 21,1; PAPER 7; INK 
23 BRIGHT 1;"CITY DEFENCE: BY E 
UGENE MORRIS" 

660 PRINT AT 20,05 INK 4;"F rr: 
(Sind a ca TR ca E nc CG 
La o 


670 PRINT AT 19,0; INK 4" cce 





Lp [ED pi el a 0] 1 a o A GET SA Ga SR A e) a 9 A 
Es Ea 
680 PRINT AT 18,0; . INK 3; BRIGH 


Tip'aaaea ag A CEA E aR O 


32 


» 


E arm Ega” 

690 PRINT AT 17,0; INK 3; BRIGH 
Tapragerma EEsor no EroaDo Bar o 
E RARE rm 

700 RETURN 


800 RANDOMIZE 


810 LET A=INT (RND*12+3) 

820 LET B=31 

830 RETURN 

900 PRINT AT A,B;"H"s RANDOMIZ 
E USR 50000: PRINT AT A,BP" ": B 
ORDER O : 

901 LET SC=SC+5: PRINT AT 0,65S 
c 

910 LET KILL=KILL+1 

911 IF LE=4 AND KILL=8 THEN LE 
T LE=1: LET KILL=0: 60 TO 80 

920 IF KILL=8 THEN LET KILL=0: 
LET LE=LE+1: 60 TO 80 

940 BO SUB 800 
"950 GO TO 230 

1000 FOR P=1 TO 10: PRINT AT X,Y 
s"ri"s RANDOMIZE USR 50000: PRIN 
TAT X,Y3" "3 BOR 

DER O: NEXT P 

1001 IF SC>HI THEN LET HI=SC 
1010 PRINT AT 5,25 FLASH 15" «a 
mta, Pa na a um |] |] my mt, 
” 

1020 PRINT AT 6,2; FLASH 15" 5 qm 
mello MH Bar Mo! 
1030 PRINT ÀT 7,23 FLASH 15" ion" 
EO Bem Md ma Mom MM 
“” 


1031 PRINT AT 10,7;"HIGH SCORE=" 
3HI à 

1040 PRINT AT 12,5;"PRESS A 
NY KEN 

1050 IF INKEY$="" THEN GO TO 10 


“so 


2000 PAPER Os INK 7: BORDER O: € 

LS 

2010 PRINT AT 4,0; INK 4;"P RE 

SENTING...! 

2020 PRINT AT 7,63 BRIGHT 1;"C 1 

TY DEFENCE! 

2030. PRINT AT 10,16; INK 3;"BY E 

UGENE MORRIS" 

2040 PRINT AT 17,10; FLASH 1;"PR 

ESS ANY KEY" 

2050 IF INKEY$="" THEN GO TO 20 

so 

2060 CLS 

2070 PRINT AT 1,10; BRIGHT 13 "CI 

TY DEFENCE! 

2080 PRINT AT 3,0;"0,.. «UP 
As. « DOWN" 

2090 PRINT AT 5,4; "0....LEFT 





P.o..RIGHT” 
2100 PRINT AT 7,125"M.«. «FIRE 
2110 PRINT AT 12,0; "YOUR CITY IS 
UNDER ATTACK FROM": PRINT “A GR 
OUP OF EVIL ALIE 


NS.': PRINT “THEY WILL SEND SUIC 


IDE SHIPS AT": PRINT "YOUR CITY 

WITH THE AIM OF 

DEST-": PRINT “ROVYING IT.* 

2111 PRINT "YOU AND YOUR INVINCI 

BLE CRAFT": PRINT "MUST SHOOT TH 

E ALIENS BEFORE" 

=: PRINT "THEY HIT YOUR CITY. YOU 

R CITY": PRINT "CAN ONLY SURVIVE 
15 HITS!”3 PRIN 

T "GOOD LUCK. PRESS A KEY." 

2120 IF INKEY$="" THEN 60 TO 21 

20 

2130 CLS 

2140 PRINT AT 1,10; BRIGHT 17"CI 

TY DEFENCE" 

2150 PRINT AT 4,13; "ALIENS" 

2160 PRINT AT 6,65"DeciccescnaY 

OUR CRAFT" 

2170 PRINT AT 9,6;"Tezecununeco 
c«-H BOMB" 

21BO PRINT AT 10,63".!.anoceneno 
ou o « SAUÇER" 

2190 PRINT AT 12,67"L.ceucanera 
ARGON SHIP” 

2200 PRINT AT 14,6;"t.councoana 
0120,» ZAPRO” 

2210 PRINT AT 17,10;"PRESS A KEY 
“ 






A DEFESA DA CIDADE 





coMPUTÊ ATARI 
o 800 XL o 130 XE o 520 ST e 1040 ST o 
RUA JOAQUIM PAÇO D'ARCOS N.º 9-A (BENFICA — Frente €. c. Fonte Nova) — 1500 LISBOA 





2220 IF INKEY$="" THEN 60 TO 22 
“20 É 
2230 60 TO 50 





vs Ga o | je e 
























CLUB 





O SENHOR 
DAS TREVAS 


Escrito por Philip Dutre para o Spectrum, este jogo 
de aventuras combina admiravelmente gráficos em mo- 
vimento, vários controles guiados e os tradicionais input 
de textos. Isto tudo para tentar descobrir e destruir o 
Deus das Trevas antes de ele conseguir o controlo da 
Terra. É 

É um programa extenso, mas muito interessante. Vale 
a pena o esforço de o gravar para ter o prazer de 
combater as forças da Noite. 










- 10 FOR n=15616 TO 16393: POKE 350 DATA 62,64,92,34,2,66,60,9 
PROGRAM 1 64000-156] 6+n, PEEK n: NEXT n 360 DATA 6,24,32,124,66,66,60,8 
200 | ET sum=0: FOR n=64066 TO 6 370 DATA 126,2,4,8,16,32,64,0 


4915: READ a: LET sum=sumta: POK 3BG DATA 67,66,66,60,66,66,6],0 


19 PAPER 9: BORDER 8: INK 9: C E n,8: NEXT n 390 DATA 69,66,66,62,4,24,96,9 
Ls ' 218 IP sumt:96 THEN PRINT “ERR 496 LET sm 2 FOR n=64248 TO “6 
15 CLEAR é3455 OR IN [INE 259"; BEEP .1,20: STO 4255: READ VET sum=sumta: POK 
SO PRINT AT 13,95: LOAD "*coDE ia E n,a: NEXT n ' 
63592 258 DATA 16,16,16,16,16,0,16,8 419 IF sumt2/48 THEN PRINT “ER 
48 PRINT AT 13,95: LOAD **CoDE Z60 LET sum=0: FOR n=64128 TO “6 , ROR IN | INE 450": BEEP .1,20: ST 
44369 4287: READ a: LET sum=sumta: POI op 
SG PRINT AT 13,85: LOAD "* E n,9: NEXT n 


459 DATA 69,66,2,4,8,9,5,9 


265 IF sumt23164 THEN PRINT “E 460 LET su : FOR n=64264 TO 6 
a RROR IN LINES 399-399": BEEP .91 4471: READ HET sum=sumta: POK | 
PROGRAM 2 28: STOP Ena: NEXT OA 
299 REM numbers 479 IF sumt>19688 THEN PRINT * 





E 388 DATA 24,36,70,74,82,36,24,9 ERROR IN LINES 599-759": BEEP .1 
S CLEAR 63999 SIS DATA 32,16,16,16,16,16,8,9 +29: STOP 
é RESTORE 259 328 DATA 69,66,2,12,16,32,126,9 499 REM upper case 
7 PRINT AT 19,5; PAPER 4J"PLE- 330 DATA 69,66,2,12,2,66,69,9 SOB DATA 39,34,66,126,66,66,66, 
ASE WAIT A MOMENT": BEEP .91,19 348 DATA 8,24,49,72,124,8,8,9 9 


34 





SIG DATA 92,98,66,92,66,66, 124, 


529 DATA 28,34,64,64,64,34,28,9 
539 DATA 92,98,66,66,66,68,88,9 
54g DATA 94,96,64,112,64,64,126 


SSG DATÁ 94,96,64,112,64,64,64,. 


S40 DATA 28,34,64,64,79,34,39,9 
576 DATA 66,66,66, 126,66,66,66; 


590 DATA 56,16,16,16,16,16,56,0 
590 DATA 56,8,8,8,8,72,48,0 
698 DATA 68,72,89,112,72,65,66; 


610 DATA 64,64,64,64,69,56, 124, 
620 DATA 56, 102,90, 66, 66, 66,66, 


639 DATA 66,98,82,74,70,66,66,9 
649 DATA 24,36,66,66,66,36,24,0 
659 DATA 92,98,66,92,64,64,64,0 
660 DATA 24,36,66,66,66,36,26,9 
478 DATA 92,98,66,92,72,68,66,8 
688 DATA 69,66,64,60,2,66,69,0 
490 DATA 124,16, 16,16,16,16,16; 


700 DATA 114,34,66,66,66,70,59, 


718 DATA 66,66,34,34,19,29,8,9 
720 DATA 119,34,65,65,73,73,54, 


730 DATA 65,34,20,8,20,34,65,9 
740 DATA 65,34,20,8,8,8,8,0 

750 DATA 63,66,4,8,16,33,126,0 
800 IET sum=9: FOR n=64520 TO 6 
READ a: IET sum=sumta: POK 
NEXT n 

810 IF sum(20352 THEN PRINT “E 
RROR IN | INES 1009 1259": BEEP . 
1,20: STOP 

999 REM lower case 

1000 DATA 9,9,52,76,68,69,54,0 
1919 DATA 64,64,88, 100,66,60,80, 





1920 DATA 9,9,56,68,64,69,56,8 
1939 DATA 32,16,24,36,68,68,56,9 
1940 DATA 9,0,56,68,124,64,69,8 
1959 DATA 24,36, 32,56,32,32,32,9 
1060 DATA 0,0,56,68,64,76,60,4 
1970 DATA 64,64,88, 198,68,72,92, 


- 1989 DATA 8,8,24,8,8,8,28,0 
1990 DATA 8,9,24,8,8,8,48, 16 
1199 DATA 64,64,72,80,112,72,68, 


1119 DATA 32,32,32,32,32,36,24,8 
1120 DATA 9,9,86,195,73,66,71,9 
1139 DATA 9,0,88, 199,68,72,92,9 
1140 DATA 9,9,69,66,66,66,69,8 
1159 DATA 9,9,88, 199,68,68,88,64 
1169 DATA 0,0,52,76,68,68,52,4 
1170 DATA 0,9,88, 100,68, 120,68,8 
1188 DATA 9,9,56,64,56,4,120,9 
1198 DATA 16,16,120,32,32,36,24, 


1208 DATA 9,0,116,36,68,76,52,0 
1219 DATA 8,8,68,36,20,20,8,0 
1220 DATA 9,9,119,34,73,73,54,9 
1239 DATA 9,9,68,49,16,49,68,8 
1249 DATA 9,9,66,34,18,12,72,48 
1259 DATA 8,9,39,36,8,18,69,9 
1399 POKE 23606,0: POKE 23607,24 


1319 CLS. : PRINT AT 5,95"You can 


always restore the origina 
1 characterset by doing t 
he following commands: 

POKE 23 
606,9 POKE 23697,69 + 


1329 PRINT AT 15,9;"This neu cha 
racterset is stored in bytes 649 
09 to 64767 ,making 768 bytes. 


This block w 
ill now be saved.* 
1339 SAVE “CIHARSET"CODE 44909, 76 


e 
000 


1349 STOP 


O SENHOR DAS TREVAS 


ROGRAM 


S REM XXUser Defined Graphics 

19 CLEAR 64399 

26 RESTORE 9999 

30 PRINT AT 19,9; PAPER 4j"Ple 
ase wait a moment” 

ag GO StIB 9999 

SO CIS : PRINT “The nser defin 
ed graphics are stored in byte 
s 64369 to 65535" 

S1 PRINT **This block is 1176 


bytes long and will now be sav 
ed.” 

69 SAVE “ndg"CODE 64760,1176 
199 sTOr a 


9000 1 ET sim=0: FOR n=64360 TO 6 
4s27: READ a: LET sum=sumta: POK 
E n,a: NEXT n 

9095 IF sum$219413 THEN PRINT * 
ERROR IN | INES 9819 9939": BEEP 
.1,20: STOP 

?910 DATA Q,124,254,259, 254,255, 
28,15 

9011 DATA 0,62,127,95,127,255,56 
, zag 

9812 DATA 9,9,9,66,255,66,0,0 
9013 DATA 4,17,73,72,2, 146, 103,2 
ss 

9814 DATA 9,72,91,41,99, 106,202, 
255 

9015 DATA 0,1,2,4,9,16,33,64 
9816 DATA 9;254,6,58,26,42,262,1 
9a 

9917 DATA 255,129,129,129,129,12 
9,255,9 

9818 DATA 68,72,16,32,64,128,0,9 
9819 DATA 96,80,72,80,96,64,64,9 
PBZS DATA 2,2,6,19,18,38,74,8 
9021 DATA 6,18,19,28,49,40,8,8 
9022 DATA 63,68, 100,94,76,68,68, 
9 

9023 DATA 96,89,72,89,96,89,72,8 
9824 DATA 8,8,8,8,28,42,8,9 

9925 DATA 16,80,90,56,20,20,16,9 
9026 DATA 68, 190,84,76, 190,84,76 
5” 

9827 DATA 84,84, 199, 194,112,64,6 
4,8 

9928 DATA 4,8,16,32,16,8,4,8 
9929 DATA 12,29,36,68,4,4,4,9 
9939 DATA 12,29,36,28,36,28,12,0 
9519 LET sum=9: FOR n=64528 TO é 
4695: READ a: LET sum=sumta: POK 
E n,a: NEXT n 

9515 IF sumt>19603 THEN PRINT * 
ERROR IN LINE 9520 9559": BEEP . 
1,29: STOP 

9528 DATA 31,35,65,81,89,35,38,1 
2 

9521 DATA 248,252, 254, 254,252,24 
8,9,9 

9522 DATA 8,7,1,12,15,15,15,15 
9523 DATA Z40,240, 192, 205, 240,24 
9,249,240 

9524 DATA 15,15,15,15,13,3,15,15 
9525 DATA 248, 240, 192, 249, 240,22 
4,268,48 

9526 DATA 47,79,207,287,207,207, 
95,63 

9527 DATA 248,249,252,252,254,25 
a,254,252 

9539 DATA 32,33,35,36,39,35,33,3 
2 

9531 DATA 94, 144, 204, 226, 224, 192 
,249,248 

9532 DATA 39,47,47,123,51,35,3,7 
9533 DATA 252,246,246,246,244,24 
8,249,249 

9534 DATA 3,7,6,6,3,3,2,14 

9535 DATA 112,112,48,48,48, 16,24 
s112 

9548 DATA 6,9,51,71,7,3,15,31 
9541 DATA 4,132,196,36,228, 196,1 
32,228 

9542 DATA 63,111,111,111,47,31,1 
5,15 

9543 DATA 228,244,244,222,204,19 





6,192,224 

9544 DATA 14,14,12,12,12,8,24,14 
9545 DATA 192,224,96,96,192,192 
128,224 

9556 DATA 195,129,536,9,129,219,1 
95,231 

9555 1ET sum=8: FOR n=64696 TO 6 
4863: READ a: LET sum=sumta! POK 
E n,a: NEXT n 

9557 IF sum(>7831 THEN PRINT “E 
RROR IN | INES 9569 9509": BEEP . 
1,20: STOP 

9569 DATA 0,9,9,9,9,9,9,1 

9561 DATA 8,6,14,28,56,112,224,1 
92 

9562 DATA 3, 103,62,28,69,118,98, 
9 

9563 DATA 128,9,9,9,9,9,0,8 
9564 DATA 9,63,63,60,56,59, 16,24 
9565 DATA 9,252,252,69,28,76,8,2 
4 

9566 DATA 12,13,9,7,3,1,98,8 
9567 DATA 48,176,32,224,192,128, 
9,8 

9568 DATA 0,64,48,69,248,252,114 
149 

9569 DATA 8,9,0,0,9,0,0,8 

9570 DATA 0,9,9,0,9,9,8,8 

9571 DATA 128,64,32,16,8,4,2,9 
9572 DATA 9,9,9,7,7,7,3,3 

9573 DATA 9,0,0,224,224,224,192, 
192 


9574 DATA 3,3,341,1,1,1,8 
9575 DATA 192, 192,192,192,126,12 
8,128,128 


9576 DATA 0,0,0,1,3,15, 16,32 
9577 DATA 9,9,9,128, 192,249,8,4 
9578 DATA 69,35,24,7,9,8,9,0 
9579 DATA 69, 196,24,224,9,9,9,8 
9586 DATA 9,9,0,9,0,9,9,0 

9585 [ET sum=9: FOR n=64864 TO 6 
5631: READ a: LET sum=sumta: POK 
E n,a: NEXT n 

9587 IF sum(>7917 THEN PRINT “E 
RROR IN | INES 9598 9619": BEEP 
1,20: STOP 


9598 DATA 9,0,0,9,0,9,0,8 

9591 DATA 9,9,4,8,24,36,89,192 
9592 DATA 1,2,5,9,244,144,99,48 
9593 DATA 96,9,8,128,9,9,8,9 
9594 DATA 6,9,6,0,7,28,56,96 
9595 DATA 0,9,9,9,224,56,28,6 
9596, DATA 64,97,58,30,6,1,9,0 


9597 DATA 2,134,92,129,96,128,9, 
CE) 

9598 DATA 0,1,2,7,2,1,9,8 

9599 DATA 128,192, 160,240, 169,19 
2,128,128 

9600 DATA 0,9,0,9,1,3,3,1 

9601 DATA 128, 128,128,128,192,22 
4,224,192 

9602 DATA 9,8,9,9,2,13,48,192 
9603 DATA 9,9,9,9,9,128,96,24 
P6B4 DATA 152,159,113,25,7,1,0,0 
9605 DATA 64,199,158,127,126,248, 
96,0 

P606 DATA 9,0,9,9,9,0,9,1 

9697 DATA D,6,19,20,49,89, 169,64 
9608 DATA 2,191,58,28,69,118,98, 
o 

9609 DATA 128,9,9,9,9,9,9,8 

9618 DATA 0,9,0,0,9,9,9,8 

9615 ET sum=8: FOR n=65032 TO é 
sS199: READ LET sum=sumta: POK 
E n,a: NEXT n 

9617 IF sumt213159 THEN PRINT" 





“ERROR IN'| INES 9628 9648": BEEP 


«1,26: STOP 

9620 DATA 3,7,13,15,7,2,1,15 
9621 DATA 192,224,176,248,224,64 
,128,249 

9622 DATA 21,35,37,35,33,37,23,6 
9623 DATA 168, 209, 168,281,139,17 
2,232,96 

9624 DATA 2,2,4,2,2,2,2,14 

9625 DATA 64,64,32,64,64,64,64,1 
12 

9626 DATA 1,3,7,69,199,131,129,1 
as 
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9627 DATA 128,192,224, 169,224, 19 
2, 128,249 

9628 DATA 223,91,83,99,99,3,7,6 
9629 DATA 254,222,222,222,204,19 
2, 224,96 

7639 DATA 6,6,12,12,4,4,6,28 
9631 DATA 96,96,48,48,32,32,96,5 
4 

9632 DATA 9,8,11,37,39,102,114,1 
15 

9633 DATA 0,32, 144,68,204,222,15 
8,199 

7654 DATA 255,255,255,127,119,18 
3,79,11 

7635 DATA 255,255,243,225,225,12 
8,192,64 

9636 DATA 8,24,8,0,0,9,9,8 

9637 DATA 64,48,32,8,0,9,9,9 
7638 DATA 9,0,9,0,9,0,8,0 

7639 DATA 9,0,9,9,0,9,0,9 

7648 DATA 9,0,0,9,0,9,0,8 

7645 LET sum=9: FOR n=65209 TO é 
5367: READ a: LET sum uma: POK 
E n,a: NEXT n 

9647 IF sum(>12569 THEN PRINT * 
ERROR IN LINES 9659-9670": BEEP 
«1,20: STOP 

7659 DATA 9,9,9,9,9,0,9,2 

9651 DATA 8,0,9,9,0,9,9, 160 

9652 DATA 3,37,85,95,79, 132, 132, 
128 

9653 DATA 84,74,250,241,169,165, 
149, 144 

9654 DATA 129,128,9,9,9,0,9,9 
9655 DATA 89,64,64,9,0,0,9,9 
9656 DATA 9,3,7,5,7,3,2,13 

9657 DATA 0,192,224, 169, 224, 192, 
64,184 

2658 DATA 13,109,155,156,127,55, 
ss p 

9659 DATA 188,196,118,246,246,24 
2,244, 184 

9668 DATA 6,14,15,15,15,12,11,31 
7661 DATA 184,216,232,248,248, 24 
8,248,252 

9662 DATA 8,0,3,71,213,55,115,58 
76653 DATA 9,8,192,227,170,236,20 
6,92 

P664 DATA 25,31,15,15,7,7,7,4 
7665 DATA 152,248,240, 249, 224,22 
4,224,32 

9666 DATA 7,15,15,64,4,4,6,28 
7667 DATA 224, 249,224,96,32,32,9 
6,56 








9668 DATA 0,9,9,9,0,9,9,9 
7669 DATA 9,8,9,0,9,9,9,8 
9678 DATA 9,9,9,0,9,9,0,9 


9675 LET sum=g 
5535: READ 
E n,á: NEXT n 

9677 IF sum(>5891 THEN PRINT “E 
RROR IN | INES 9680 9799": BEEP . 





1,29: STOP 
7688 DATA 0,0,9,0,0,9,9,0 
7681 DATA 8,8,9,9,9,0,9,9 
9682 DATA 0,9,9,0,9,9,0,8 
2683 DATA 9,0,9,0,9,9,0,8 
7684 DATA 0,9,6,0,0,0,9,0 
7685 DATA 0,9,9,0,8,0,9,9 
7686 DATA 0,0,9,0,0,14,40,34 
9687 DATA 9,0,8,0,9,8,20, 36 
P688 DATA 18,12,0,0,8,9,0,15 
9689 DATA 72,48,0,0,8,0,0,249 
7690 DATA 19,8,4,8,9,8,0,9 


9691 DATA 89, 16,32,9,0,9,9,9 
2692 DATA 9,9,1,33,35,115,115,12 
3 

?493 DATA 9,9,192,112,196,196,46 
s14 

P494 DATA 123,255, 255, 223,199,13 
11,9 

7695 DATA 62,255, 255,239,198,139 
+192,192 

7696 DATA 8,8,9,12,14,7,1,8 

2697 DATA 192,224,96,96,224,192, 
128,8 


7698 DATA 0,0,9,9;0,6,0,6 
7699 DATA 0,8,8,8,0,9,9,9 
9700 DATA 0,9,9,0,0,9,6,8 


9999 RETIRN 
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PROGRAM 4 


1 REM KEREXKEREEKKEERKKRKRERE 

*Underlíined charactersz 

*are entered in x 

*GRAPHICS mode. * 

FRRRRRERRRERERERSARRRA 

Z INK 7: POKE 23696, 194: POKE 

23697, 247 

S PRINT AT 21,93 FLASH 15 “Sto 

P'the tape": FOR n=1 TO 299: NEX 
Tn 

15 RESTORE 15: FOR n=g TO 19: 
READ a: POKE 233994n,a: NEXT n: 
DATA 353, 168,88,6,129,54,9,35, 16, 
251,291 

28 LET cl=7 
| JOLET as="Press any key to st 
art this fantasy adventure...Lor 
d of Darkness...- 

32 PRINT AT Zi,Bjas(t TO 32): p 
OKE 23396,c1+64: RANDOMIZE USR 2 
3399 

33 LET bS=INKEYS: IF b$="" THE 
N LET as=as(2 TO )sas(1): LET € 
l=c1 1+7k(cl=1): FOR n=1 TO 29: 
NEXT n: 60 TO 32 

40 CLS : PRINT AT 19,44 PAPER 
24 INK 6"Please,mait a moment . 


43 GO SUB 9999: GO SUB o399 
45 60 SUB 9596 
So GO SUB sggg: GO SUB saga 
1990 REM XkMain ProgramkXHKXXKKX 
1995 LET action=INT (liferg/19): 
PRINT AT. 11,235" “FAT 11,235 
action 
1918 PRINT AT 17,1;"Move cursors 
Fight: “FAT 18,1;"Exa 
mine Left, Right view" ;AT 
19,15 "Take Stop 
“5AT 29,1; "Drop ot 
her command “sAT 21,15 


1920 LET as=INKEYS: IF ag="" THE 
N G0 TO 1929 

1939 LET a=CODE as: IF aí53 OR « 
a)S6 AND acigg) OR adiiá THEN G 

o TO 1926 

1035 IF a=115 THEN GO TO 1109 
1949 LET a= -52-43%(a>99): GO SU 
B VAL "2098, 2000, 2000, 2000, 2208, 

2690, 2390, 1020, 1920, 1026, 1920, 19 
28,2109, 1020, 1020, 3000, 1020, 1029 
+ 2188, 1920, 2508" (Ska-4 TO Sxa-1) 
1843 IF PEEK 63584=9 THEN GO TO 
8759 

1845 PRINT AT 11,233" 
+23jaction 

1947 IF lifergt2%actionc=g THEN 
G0 TO sésg 

1948 IF action(<=-19 THEN GO TO 
1198 

1969 GO TO 1919 

1198 LET liferg=lifergt2xaction: 
IF lifer$>194 THEN LET liferg= 
194 

1195 IF liferg<>litold THEN Go 

SUR 8559 ko 

1269 REM XkAction Characterskxkx 
Ízo5 LET as="The characters are 

performing actions now.*: GO SUB 
essa 

1219 FOR n=1 To 29: IF PEEK (634 

52+4kn)=r AND (n)12 oR DtB,1)<>9 
) THEN GO SUB 1396: IF PEEK 635 

84=9 OR liferg(=9 THEN GO TO 86 
SB+199%(PEEK 43584=8) 

1215 NEXT n 

1220 FOR n=32 TO 34: IF PEEK (63 

452+4%n)=r THEN GO SUB 1399 

1225 NEXT n 

1239 IF r=43 AND o(18,1)=58 THEN 

LET as="The magician says: Bri 

ng me the ring, the book and the 
sceptre, and I wíll help you to 
kill the Lord of Darkness. *: GO 
SUB 8489: GO SUB 8459 


“5AT 


1235 IF r=24 AND wiz=9 THEN LET 
at="The wizard says: I have the 
Power to kill the Balrog.Shall 

1 attack him?2º: GO SUB 8498: GO 

SUB 84sg É 

1259 GO SUB 8798: 60 TO 1099 

1389 LET m=1+(n)12)+(n)22)+4(n)25 

1+(n>29)+(nD38) +(n31) 4 (no32) 4 (n 

233) 





13S+6%(m-5k(m>3) -3%( 


1395 LET xco=PEEK (63455+4%tn): L 

ET yco=PEEK (63454+4%n) 

1319 FOR o=1 TO b(m) 

1315 IF (nkx-xc0)%(wkx-xc0) + (mky 

-YCo)k(wky-yco)<=5 THEN GO SUB 
1489: RETURN 

1329 LET dx=(xco<wkx) -(xco)mkx) : 
LET dy=(ycocwky)-(ycodmky) 

1325 POKE 23675,8+148%(m)3) -B8%( 

m>6): POKE 23676, 254+(m)6) 

1339 PRINT OVER 15 INK ZfAT xco 

-2, YCOICHRS ad+CHRS (adtL)FAT xe 

0-1, YCOICHRS (ad+2)+CHRS (ad+3)5 

AT XCO,yCOSCHRS (ad+4)4CHRS (ad+ 

s) 

1335 LET xco=xcotdx: LET yco=yco 

+dy: PRINT OVER 14 INK SJAT xco 

-2,YCOJCHRS ad+CHRS (ad+I) FAT xe 

9-1, YEOICHRO (ad+2)4CHRE (ad43) 

AT xco,ycoJCHRS (ad+4) +CHRG (ad+ 

5, 

1348 POKE 63453+4kn, xco: POKE é3 

454+4%n, yco 

1345 NEXT o 

1358 RETURN 

1400 LET b=PEEK (643455+4%n) -INT 
flifterg/28)-Z2x(o(1, 1)=B)-(0(3,1) 

=B)-2H(0(2, 1)=8) -1B%to(19,1)=0)+ 
INT (RNDX6)-2 

1418 IF b>=8 THEN LET liferg=li 

ferg-18%b: GO SUB 8559: LET ag=" 

You're attacked by the “4+ps(m)+( 
* He hit you.” AND liferg)g)+(" 

He Killed you... you're dead.” A 

ND lifergc=8): GO TO 1499 

1428 LET b=PEEK (63455+4kn)+b! L 

ET as="You're attacked by the "+ 

PS(m)+" You "+(“hit him.” AND b> 

B)+("killed him.” AND b<=8) 

1438 POKE 63455+4kn,b: IF b(=g T 

HEN POKE 63452+4%n,0: POKE 2367 

3, 8+168%(m>3) -98%(m>6): POKE 236 

76,254+(m>6): PRINT OVER 1 INK 
ZVAT xco-2,ycoJCHRS ad+CHRE (ad 

+I)FAT xco-L,ycosCHRS (ad+2) +CHR 

 (ad+3)FAT xco,ycosCHRS (ad+4)+ 

CHRS (ad+5) 

1498 GO SUB 8499: GO SUB 8459: R 

ETURN 

2008 REM Movement HEHE 

2019 LET nx=mkx+ik(a=2)-1k(am3): 
LET ny=wky+ik(a=4)-1ktas1) 

2812 IF (nx=8 AND NOT (ny=11 AND 
trSCr;dir)="1"))) OR nx=15 THEN 
RETURN 

2816 IF nx+ny-1648 AND NOT (nx=l 
1 AND ny=4 AND rgtr,dir-le+4x(dir 

=1))="1") AND NOT (nx=i2 AND ny= 

3 AND rS(r,dir-14+4%k(dir=1)jmsga 

AND a=1) THEN RETURN 

2818 IF nx-ny+7<=8 AND NOT (nx=t 
1 AND ny=168 AND rstr,dirsi-gx(di 

r=4))="1") AND NOT (nx=i2 AND ny 

=19 AND rS(r,dirt1-4k(dir=4))="1 
* AND a=4) THEN RETURN 

2021 FOR n=9 TO 1: IF PEEK (2252 

8+52knx+nyenk(ac)i)x(ac)4)4 (amd) 
1=5 AND PEEK (22528+32%(nx-1)4ny 
+nk(ac>i)x(ac)4)+ (amd) )=5 THEN 

RETURN “ 

2022 IF PEEK (22528+32knxenytnk( 

aSDi)X(aç>4) + (a=4))=3 AND PEEK ( 
22526+32%(nx-2) +nyenklaCDi)xtaç> 

4)+(a=4))=3 THEN RETURN 

2024 NEXT n 

2038 IF nx=8 OR (nx=11 AND ny=4) 
OR (nx=12 AND ny=53) OR (nx=11 A 

ND ny=18) OR (nx=12 AND ny=19) T 

HEN GO TO 2958 








2835 POKE 23675, 16: POKE 23676,2 
52: PRINT INK Bj OVER LEAT wkx, 

wkySCHRS (mkd+4)+CHRS tmkd+5) FAT 
wkx-1, WkySCHRS (mkd+2) +CHRS (uk 
d43I FAT wkx-2,WkyICHRS (mkd) +CHR 

S (mkdti) 

20537 LET wkd=wkdk(a=5 OR az2)+15 
Zk(a=1)+158%(a=4) . 
2949 PRINT INK 83 OVER IJAT nx; 
nyICHRS (wkd+4)+CHRS (Wkd+5) AT 
nx-1,nyJCHRS (wkd+2) +CHRS (wkd+3 
JPAT nx-Z,nyICHRS (mkd) +CHRS (mk 
d+1) 

2045 LET wkx=nx: LET wky=ny: LET 
action=action-I-dark: RETURN 
2059 LET exit=1X(ny<=4)+2%(nx=8) 
+3%(ny)=18) 

“2952 LET sum=dirtexit: LET r=r-7 
*(sum=53 OR sum=7)+7%(sum=5)-1$ts 

um=Z OR sum=6)+1%(sum=4) 

2954 LET wkx=12+2%(exit=2): LET 
nkynd+7%(exita2) +IGRlexit=1) 
2855 LET wkd=wkdk(exit=2) +152%te 
xit=1) +156%(exit=5) 

2056 LET action=action-i: GO SUB 
8199: RETURN 

2100 -REM kHLett Right vienkHsHatt 
2105 PRINT AT 18, 16+5%(am19)j FL 
ASH Ly (*Left” AND ami3)+("Right" 
AND a=19) 

2118 LET dirmdir+(-1+4k(dirmlo)a 
(aml3)+(1-4H(dir=4)) Ktasio) 

2120 LET x=wkx: LET y=mky: GO SU 
B 2198; LET mkx=x: LET mky=y 
2125 LET x=chx: LET y=chy: G0 SU 
B 2199: LET chx=x: LET chy=y 
2130 FOR n=1 TO 18: IF o(n,1)<>9 
THEN LET x=0(n,2): LET y=otn,;3 
»: GO SUB 2199: LET o(n,2)=x: LE 
Totn,B=y 

2131 NEXT n 

2149 FOR n=1 TO 34: IF PEEK (634 

52+44n)<D9 THEN LET x=PEEK (634 
53+4kn): LET y=PEEK (63454+4%n): 
G0 SUB Z199: POKE 63453+4Xth, x: 

POKE 63454+4%n,y 

2141 NEXT n 

2178 G0 SUB S199 

2189 RETURN 

2198 LET t=(11kx+4%y-99)/(x-5)3 

LET d=t-7: LET e=SER (xkx-18kx+8 
1tyky-ZKtky+tRt): LET f=SESOR (1 
+(yHy-22%y+121)/ (xx LBRX+25)) 
2191 IF a=13 THEN LET x=INT (9. 

S+5kd/8): LET y=INT (6.5tx-ex(2% 
x-181/41 

2192 IF a=19 THEN LET x=INT (14 
«5-54d/8)! LET y=INT (I6-xt+ext2% 
x-18)/4) 

2199 RETURN 

2209 REM *kDropiHaEaHaaaHBaaaaaE 
2203 IF dark THEN LET as="It's 
too dark to drop something.": GO 
To 2289 

2205 IF object=1 THEN LET as="Y 

ou can't drop a thing, but 14 yo 

u insist, take something and the 

n drop it.": GO TO 2269 













O SENHOR DAS TREVAS 


2207 LET x=2: LET y=23 

2296 PRINT AT x,y5 OVER 15 INK 8 
a 

2219 LET at="Move the cursor uit 
h the cursor keys to the object 
you want to drop.Then press ENTE 
R, or DELETE to return to main m 
enu.*: GO SUB 8498 

2215 LET as=INKEYS: IF (asc"s" O 
R a$>"6") AND CODE as<>12 AND CO 
DE as<>13 THEN GO TO 2215 

2217 IF CODE at=i2 THEN PRINT A 
T x,y) OVER 15 INK 85"4": RETURN 





2218 IF CODE aS=13 THEN 60 TO 2 

239 

2220 PRINT AT x,y; OVER 1) INK 8 

pres 

2222 LET x=x-(ag="7")x(x<)2) +(as 

=º6")X(xC)7)3 LET ymy- (age) A( 

y<)23) +(as=" 8") K(y<)>26) 

2224 PRINT AT x,y] OVER 14 INK 8 

pise 

2226 GO TO 2215 

2238 LET nr=x-1-(x<)2XINT (x/2)) 

+INT ((y-23)/2) N 

2232 IF nr>=object THEN LET as= 

“Do you want to drop some air?27 
1 don't think this has a signi 

ficant effect. Press any key to 

drop an existing object.": GO SU 

B 8499: GO SUB 8458: GO TO 2218 

2233 LET ag="You drop the “tos(g 

Enrd) E 

2234 POKE 23675,96+88%(q(nr)<=5) 

: POKE 23676,252+(g(nr))=6): LET 
a=149+4k(g(inr)-Sk(gtnr)D=é6)): P 

RINT, INK 55 OVER 1JAT mkx-L,mky 

JCHRS a+CHRS (a+L) FAT mkx,wWky5CH 

R$ (a+2)+CHRG (a+3) 

2235 IF qtnr)=4 THEN LET lit=g 

2236 LET oftg(nr),1)=r: LET otg(n 

r),2)mwkx: LET otgtnr),S)=wky: L 

ET object=object-1: LET qtnr)=a( 

object) 

2237 LET actionsaction-l: GO SUB 

essa 

2269 GO 'SUB 8486: GO SUB 8459: R 

ETURN 

2398 REM %XEF 4 gh tHOHBHABSHanHaDA: 

2395 LET x=5: LET y=2 

2310 PRINT AT x,y5 OVER 14 INK 8 

pur 

2315 LET at="Move the cursor wit 

h the cursor keys to the creatur 

e you want to attack.Then press 

ENTER, or DELETE to return to ma 

in menu.": GO SUB 8498 

2320 LET aS=INKEYS: IF (asc"5” O 

R a$>"8") AND CODE as<>13 AND CO 

DE as<)12 THEN GO TO 2329 

2321 IF CODE as=12 THEN PRINT 

OVER 15 INK BJAT x,y5"4+*: RETURN 








2322 IF CODE aS=13 THEN LET as= 
“Please, wait a moment.": GO SUB 
8499: GO TO 2339 

2326 PRINT AT x,y; OVER 15 INK € 
Vr+": LET xaxttas="6") X(xC)14)-( 
aS="7")%(x()3): LET y=yt(ag="8") 
*(yO21)-(as="5")x(yC)2): PRINT 
AT x,y5 OVER 15 INK 8/"+": GO TO 








2329 

2339 FOR -m=8 TO 2: FOR o=9 TO 1: 
FOR n=1 TO 34: IF PEEK (osass+a 
an)-m=x AND PEEK (63454+4%n) to=y 
AND PEEK (63452+4kn)=r THEN GO 
TO 2335 

2332 NEXT NEXT o! NEXT m 
2333 LET as="You are using your 
weapons against the air.Search a 
n opponent before you want to tr 
y agaíin!*: GO SUB 8499: GO SUB 8 
asg: GO TO 2315 

2335 IF (PEEK (6345344%n) -wkx) 
PEEK (63453+4%n) -mkx)+(PEEK (634 
S4+4%n)-wky) XIPEEK (63454+4%n) -n 
ky)>5 THEN LET as=“Unless you h 
ave a very long weapon, the crea 
ture is too far amay to attack 1 
t.º: GO SUB 8498: GO SUB 8459: 6 
O TO 2315 

2348 LET action=action-5! LET b= 
INT (liferg/28)+2%(0(1, 1)=B)+(o( 
3, =) +(o(z, 1)=0) +1BH(O(1B,1)=0 
)-PEEK (63455+4%n)+INT (RNDH6)-Z 
2341 LET bS=ps(1+(n>12)+(n)22)+( 
n>25) + (n)29) + (n2 39) +(n231)+(n)32 
3+(n>33)1 

2342 PRINT AT x,y) OVER 15 INK 8 
poa. 

2347 IF b<(=9 THEN LET liferg=li 
terg+bH19: GO SUB 65SG: LET ag=" 
You attacked the "+bs+" “+ 
("but he hit you." AND liferg>9) 
+(*but this creature killed you, 
* AND liferg<=8): GO TO 2399 
2359 LET a=PEEK (63455+4%n) -b 
2351 LET as="You attacked the "+ 
bs+* *+(*He 15 wounded.” A 
ND m>9)+(*You killed him.” AND a 
<=8) 

2355 POKE 63455+4%n,a 

2369 IF n)9 THEN GO TO 2399 
2361 POKE 63452+9%n,8 

2365 POKE 23675,8+168%(n)=26)-86 
*(n)=32): POKE 23676, 254+ (n)=32) 
: LET o=138+6%in<=12 OR (n>=2é À 
ND n<=29) OR n=32)+12%((nD=i3 AN 
D n<=22) OR nº39 OR n=55) 4+16%((n 
>=23 AND n<=25) OR nº31 OR n=34) 
1 LET x=PEEK (6345544kn): LET y= 
PEEK (63454+4%n) 

2378 PRINT OVER 1) INK Z5AT x-2 
+ YICHRE O+CHR$ (O+I)JAT x-1, ICH 
R$ [0+2)+CHRS (O+3)JAT x, yICHRS 
(0+4) +CHRS (0+5) 

2375 60 SUB 8709 

2398 GO SUB 8489: GO SUB 6959: R 
ETURN 

2399 RETURN 

2509 REM JT ake HHHaaenDana Bana 
2593 IF dark THEN LET as="It's 
too dark to drop something so 
TO 2599 

2595 IF object=7 THEN LET as="Y 
ou're carryíing to much. Drop som 
ething and then try again.": GO 
TO 2599 

2597 LET x=5: LET y=2 

2518 PRINT AT x,y) OVER 15 INK € 
pres 

2522 LET as="Move the cursor nit 
h the cursor keys to the object 
you want to take. Then press ENTE 
R, or DELETE to return to main m 
enu.": GO SUB 8499 

2524 LET aS=INKEYG: IF (asc"s" O 
R as>"8") AND CODE as<>13 AND CO 
DE as<>12 THEN GO TO 2524 

2525 IF CODE a$=13 THEN GO TO 2 
s39 

2526 IF CODE a$=12 THEN PRINT A 
T x,y5 OVER 15 INK 65"+": RETURN 




















2526 PRINT AT x,y5 OVER 15 INK 8 
jr+": LET x=xt(aB="6")*(x0D14)-( 
as="7")%(x()3): LET y=y-(ag="5") 

*(y0)2)+(as="8")4(yC)21): PRINT 

AT x,y5 OVER 15 INK 85º+": GD TO 
2524 
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2539 FOR m=8 TO 1: FOR o=g TO 1: 
FOR n=1 TO 18: IF Otn,2)-m=x AN 
D o(n,3)+0=y AND o(n,1)=r THEN 
Go TO 2549 

2532 NEXT n: NEXT o: NEXT m 
2535 LET as$="I can't see any por 
table object at this position 
GO SUB 8499: GO SUB 8459: G0 TO 
2522 

2549 IF to (n,27 -wkx) *to(n,2)-mkx 
J+t0 tn, 3) -mkyixtotn,3)-mky)>S TH“ 
EN LET ag="The object is too fa 
r anay to take it, Press any key 
to continue. ": GO SUB 8498: Go 
SUB 8459: GO TO 2522 | 

2558 LET ag="vyou take the “t+og(n 
, 

2555 LET qtobject)=n: LET object 
=object+1: GO SUB 8599: PRINT AT 
X,)3 QUER 1; INK Bpr4m 

2568 PRINT OVER 15 INK ZJAT otn 
»2),0(n,3)SCHRS (a+2)+CHRE (243) 
VAT o(n,2)-1,0(n,3) FCHRS asCHRG 
ta+t) 

2561 LET o(n,1)=g 

2562 GO SUB 8799 

2571 LET action=actian-s 

2598 GO SUB 8496: GO SUB 8459: R 
ETURN 

2600 REM XXExami nesmnnsoaDanar 
2695 IF dark THEN LET ag="You c 
annot examine objects because it 
*s too dark.": GO TO 2699 

2695 LET x=3: LET y=2 

2618 LET ag="Move the cursor wit 
h the cursor keys to the object 
you want to examine. Then press 
ENTER, or DELETE to return to ma 
in menu.": GO SUB 8499 








2612 PRINT AT X,yY5 OVER 14 INK 6 
pras 
2615 LET bS=INKEYS: IF tbec"s* o 





R b$>"8") AND CODE bs<>12 AND co 
DE b8<>13 THEN GO TO 2615 

2616 IF CODE b8=12 THEN PRINT A 
T x,y) OVER 15 INK 65"4+*; RETURN 


2617 IF CODE b8=13 THEN 
429 
2618 PRINT AT x,y; OVER 14 INK 8 
Fe4+07 LET x=x+(bE="6")K(xe)14)-( 
DS="72")X(x(23): LET y=yt (bg="8") 
*(y 021) -(ba=ese) x(yc>2): GO TO 
zé12 
2620 LET a&="Please, wait a mome 
nt.": GO SUB g4gg 
2621 FOR n=g TO 1: FOR mag TO 1: 
FOR 0=1 TO 18: IF x=oto,2)-n AN 
D y=0(0,3)+m AND o(o,1)=r THEN 
So TO zésg 
2622 NEXT o: NEXT m: NEXT n 
2625 FOR n=g TO 2: FOR mag TO 1: 
FOR 0=1 TO 34: IF x=PEEK (ó3453 
+4%0)-n AND y=PEEK (63454+4%0) -m 
AND PEEK (63452+4%0)=r THEN GO 
TO 2668 
2627 NEXT o: NEXT m: NEXT n 
2638 FOR n=g TO 1: FOR m=9 TO 1: 
IF. x=chx-n AND y=chytm AND reis 
THEN LET a&="This is a wooden 
chest. It looks very heavy. ": GO 
TO 2699 . 
2631 NEXT mi NEXT n 
2635 IF x+y-16)=0 AND x>=9 AND x 
-7+7>=0 THEN LET ag="The floor 
is made of stone.": GO TO 2698 
2649 LET aS="The walls are made 
of heavy brícks.*s+(“There are so 
me strange inscriptions on them. 
* AND r=28): 60 TO 2698 
2659 RESTORE 2651: FOR n=1 TO o: 
READ a8: NEXT n: GO TO 2699 
2651 DATA "It's a normal smord,o 
ften used by men and elves.*,*Th 
is shield is made of iron. A whi 
te skull is painted on it.*,*Thi 
s axe is probably made by dwarve 
5.*,"This torch has recently bee 
n used.", "This a tinder box. It í 
s used to make fire.” 


Go To 2 
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2652 DATA "It is a rusty key.*,* 
There is a very valuable diamond 
in the ring.", "A picture of a s 
keleton i= painted on this scept 
re.*,"It is a very old book.Perh 
aps something is written in it. 
» "The sword flashes brightly.* 
2668 LET m=i+(o>12)+(0)22)+(0)25 
Me toD29) +(o>3B) + (031) +to)3z) + (o 
233): RESTORE 2661: FOR n=i TO m 
? READ a$: NEXT n: GO TO 2699 
2661 DATA “This is an undead ske 
leton. He's armed with a knife m 
ade of bone.",*This person is a 
guard.He has a shield and a scim 
itar.*,"This creature is a bat.I 
t has no arms but very sharp tee 
th, and claws.",*A giant spider, 
probably very hungry!!= 
2662 DATA "This person is a magi 
Cian.","A wizard,he looks friend 
ly.*,"You can feel the presence 
of a being,but it is invisible.” 
»*The Lord of Darkness! tt", 2a wy 
vern, or a winged serpent.” 
2698 LET actionsaction-4: GO SUB 
8400: GO SUB 8459: PRINT AT x,y 
5 OVER 1; INK 8;*+*; RETURN 
3996 REM *XOther Command si 
3994 POKE 23675, 16: POKE 23676,2 
sz 
3095 LET as="Enter your command. 
So SUB saga 
3006 LET x=18: LET y=mi: LET age” 
3918 PRINT AT x,y; FLASH 
3915 LET bS=INKEYS: IF bg= 
N 60 TO 3915 
3617 IF CODE b$=12 THEN LET as= 
as( TO LEN as-(x(>18 OR y<>1)): 
PRINTAT x,y5" *: LET y=y- (01) 
+29%ty=1 AND x<)18): LET xmx-(y= 
39): GO TO 3019 
3918 IF CODE b$=13 AND asç)** TH 
EN GO TO 3928 
SO19 PRINT AT x,y5bS: LET y=yrty 
(239) -29%(y=38 AND x<)21): LET x 
Sx+(y=1): LET af=ag+bg: FOR n=i 
TO 19: NEXT so TO 3919 
3020 LET dg= LET es= 
S="": LET g8=""; LET 'x=1 
3021 IF aG(LEN a&)=" * THEN LET 
af=as( TO LEN ag-1): GO TO 3821 
3922 LET agem 
3924 IF ag(1)=" * THEN LET assa 
(2 TO ): GO TO 3824 
3925 LET n=2 
3826 IF aS(n)<)* * THEN LET n=n 
+1: 60 TO 3926 
3927 IF x=1 THEN LET d$=as( TO 
n-1) 
3028 IF x=2 THEN LET es=as(t TO 


















THE 













n-1) E 

SO29 IF x=3 THEN LET 4$=as( To 
n-1) 

3839 IF x=4 THEN LET g8=as( TO 
n-1) 


3931 LET ag=ags(n TO » 

3932 IF x<>4 AND asç)” = THEN L 
ET x=x+1: GO TO 3924 

3935 FOR n=1i TO & 


ma A a 


3856 IF d$=c8(n, TO (LEN de XILE 
N dSC5)+5X(LEN d$>=5)) THEN 60 
To 3949 

3937 NEXT n 

3938 LET ag="I don't understand 
your command. I don't know how to 
**+d$+"* something So TO 395 

gs 

3948 GO SUB 3999 +199%n 

SB5S9 GO SUB 8499: GO SUB e45g: R 
ETURN 

3196 IF 0(5,1)<>9 THEN LET ag=" 
You are not able to make light wu 
ithout the right equipment.*; RE 








3195 IF 0(4,1)<>8 THEN LET ag=( 
“You cannot light the "test". À 
ND esc>"")+(*you don't have anyt 
hing to light.” AND eg=""): RETU 
RN 

3118 IF lit=1 THEN LET at="The 
torch already burns.Don't waste 
your forces like this!": RETURN 
3115 LET as="The torch is on tir 
€ now. Wow;what a light it gives 
!*: LET lit=1: LET actionmaction 
-2: 60 SUS 8198: RETURN 

3209 IF 0(4,1)<)8 OR lit=g OR eg 
€>ºtorch* THEN LET ag="This is 
not possible. *: RETURN 

3218 LET ag="You put out the tor 
ch.*: LET lit=g: LET actionsacti 
on-2: GO SUB 8199; RETURN 

3389 IF 48<>"to” THEN LET ag="1 
don't understand your command. * 
2 RETURN 

3318 IF 98<>"magician" OR r<)PEE 
K 63572 THEN LET ag="This is no 
t possíble.": RETURN 

3520 FOR n=i TO 18: IF es<>o8(n, 
TO (LEN es) X(LEN e8C11)+11X(LEN 
e$)=11)) THEN NEXT n: LET ag=" 
1 don't know mhat a ""tagrer 
*: RETURN 

3325 IF o(n,1)<>8 THEN LET 
You don't have the "+e84*, so yo 
u cannot give it away.": RETURN 
3339 IF (mkx-PEEK 63573) %(wkx-PE 
EK 63573) +(nky-PEEK 63574) % (mky- 
PEEK 63574))5 THEN LET at="The 
magician is too far away to acce 
Pt the object.": RETURN 

3348 LET “The magician takes 
the “sems".*: LET o(n,1)=59: LET 
O(n,2)=PEEK 63573: LET o(n,2)=p 
EEK 63574 q 
3345 LET object=object-1: FOR m= 
1 TO object: IF qtm)<>n THEN NE 
XT m 

3359 LET qtmi=qtobject): GO SUB 
ssag 

3355 IF o(7,1)<559 OR o(g,1)<>59 
OR 0(9,1)<>59 THEN RETURN 

3368 GO SUB 8499: GO SUB 8450: L 
ET af="The wizard says:'You gave 
me three valuable objects.I giv 
e you the magical sword to kill 
the Lord of Darkness. ": LET o(1g 
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,1)=9: LET qlobject)=19: LET obj 
ect=object+i: GO SUB 8599: RETUR 
N 
3409 IF (es<)CHRS 115+CHRS 117+C 
HR$ 119 OR r<>28) AND (es<)'yes" 
OR r<>24 OR PEEK 63576(224) THE 
N LET a$="Nothing happens.": RE 
TURN 
3419 IF eG="yes" THEN LET as="T 
he wizard hears your answer.He s 
ays: I've just killed the Balrog 
in magical combat.": LET niz= 
POKE 63589,9: RETURN 
3429 LET: as="A secret door opens 
itself in the south wall. *: LET 
ré(28,3)="1": LET ro(3S, L)="1": 
G0 SUB 8199: RETURN 
3596 IF dark THEM LET as='It's 
too dark to read. ": RETURN 
SSI IF.0(9,1)<28 OR tesc)"book* 
AND es<>"") THEN LET ag="You c 
annot read without a book.*: RET 
URN 
3520 LET ag="The book contains s 
everal chapters...three I think. 
specify the chapter you mant to 
read. (Press 1,2 or 3)": GO SUB 
saga 
3539 LET aS=INKEYS: IF agc*1” OR 
a$>"3” THEN GO TO 3539 
3535 LET action=action- 
3539+1GX(CODE as-48) | 
3549 LET as="Chapter one: This p 
art contains a translation of ru 
ne inscríptions into normal text 
.*: GO TO 3589-19%(r=28) 
3559 LET at="Chapter two: "To ki 
11 the Lord of Darkness, use the 
magic sword hidden in the castl 
e."'": RETURN 
3569 LET af="Chapter three, it sa 
ys! "Instead of reading this boo 
k and wasting your time, you wou 
1d better kill the Lord.'*: RETU 
RN 
3579 GO SUB 8498: GO SUB 8458: L 
ET at="The signs on the wall mea 
ni... Round as a ball, as light 
the best. Birth and dead, in east 
and west.” 
3599 RETURN 
3698 LET as="You're doing fine.. 


3695 IF r=6 THEN LET as="Agains 
t undead types, an object of pom 
er can be useful.” 

3610 IF r=26 THEN LET as="Try t 
o translate the runes." 

3615 IF r=39 THEN LET ag="To ft 
nd the book, to find the sword, 

enter the area of spider lord." 

3620 IF r=46 THEN LET as="A tor 
ch can be a big advantage.” 

35625 IF r=47 THEN LEY as="no sn 
obd back to wall go lett* 

3639 RETURN 

3700 IF es<)"chest" OR r<>15 THE 
N LET as=("vYou cannot open the 

“+25 AND esc)"")+("I don"t know 

what to open" AND ef="")+".": RE 
TURN 

5719 IF (wkx-chx)k(ukx-chx) + Culey 
-chy)t(wky-chy)DS THEN LET as=" 
You are too far from the chest t 
o open it.": RETURN 

3715 IF open=i THEN LET as="The 
Chezt is already open.*: RETURN 
3717 IF o(6,1)<()8 THEN LET as=" 
The chest is locked.You cannot o 
pen it.": RETURN 

3729 LET ag="vou open the chest. 
In the chest there a book": 

LET action=action LET o(9,1 
15: LET open=1: POKE 23675,96: P 
OKE 23676,253: PRINT OVER 15 IN 
K SEAT chx-1,chy;"BC";AT chx,chy 
F"DE*: RETURN k 

3899 IF esc)"chest” OR r(>15 THE 
N LET as="You cannot close the 

*teg: RETURN y 








: 60 TO 


















O SENHOR 


3819 IF (mkx-chx)Xtwkx-Chx) + (uy 
-chy)Xtmky-chy)24 THEN LET as=" 
The chest is too-far away to clo 
se it.": RETURN 

3815 IF open=8 THEN LET as="The 
chest is already closed.": RETU 
RN 


829 LET a$="You close the chest. 





«": LET open=8: LET action=actio 
n-2: RETURN 

8009 REM *HDisplayHHHHHHHHERRRRR 
8919 BORDER 8: PAPER 9: INK 9: € 
LS : PAPER 8 

8915 POKE 23675,16: POKE 23676,2 
sz 

8929 FOR n=16 TO 21: PRINT AT n, 
14 PAPER 65" 





NEXT nº PRINT INK 
G5AT 16,05" BNJAT 16,51; "BPJAT 17 
+B5" ESAT 17,311 "ue AT 18,05" w's 
AT 1S,3LFºN "FAT 19,85" EJAT 19,3 
1SºNPJAT 20,0)" VºSAT 20,31; “RºJA 
T 21,95" PjAT Bi, Sie 

8939 PLOT 8,48: DRAU 239,8: PLOT 
8,41: DRAW 239,8 

8955 LET qs="Object ActionLite 
Energy": FOR n=2 TO 14: PRINT A 
T n,275q8(n-1)5AT n,295q8(n+12): 
NEXT n 

8857 FOR n=1 TO 194: PLOT 241,55 
+ni DRAW 5,9: NEXT n: GO SUB 858 
9: GO SUB 8188: RETURN 

8199 REM XkDraw RoomHHHHEaNHHO 
8193 LET dark=(r=33 OR r=34 OR r 
=48 OR r=41 OR r=47) AND lit=9 
6195 FOR n=2 TO 15: PRINT AT n,2 
5 INK 7-7%dark;* 

*: NEXT nº IF dark THEN LET 
ag="It's very dark here.I can't 
see a thing.": GO SUB 8498: GO 
SUB 8459: RETURN 
8118 PLOT 16,56: DRAW 48,48: DRA 

W 63,8: DRAU 48, -48: PLOT 64,104 
: DRAW 9,47: PLOT 127,184: DRAW 
9,47 

8129 IF rstr,dir)= THEN PLOT 
87,194: DRAW 9,24: DRAW 17,8: D 
RAW G,-24: PLOT 87,184: DRAW OU 
ER 1516,9 

8121 IF r&lr;dir-L+4k(dir=1))="1 
* THEN PLOT 31,71: DRAW 9,33: D 
RAW 17,8: DRAW 9,-24: PLOT 31,71 
: DRAW OVER 1516,16 

8122 IF r$(r;dirt+1-4k(dir=4))="1 
* THEN PLOT 169,71: DRAW 9,33: 
DRAW -17,8: DRAW 9,-24: PLOT 169 
+71: DRAW OVER 15-16, 16 

8139 POKE 23675, 16: POKE 25676,2 
52: PRINT OVER 1347 mkx;uky5CHR 
S (wkd+4) +CHRS (WkdtS) FAT mkx-1, 
WkySCHRS (nkd+2) +CHRS (nkd+3) AT 
wkx-2, wky;CHRS (nkd) +CHRS (nkd+ 
1) 

8131 POKE 23675, 194: POKE 25676, 
251 

8132 IF r=6 OR r=7 OR r=13 OR r= 
14 OR r=28 OR r=21 THEN FOR n=1 
TO 19: LET x=INT (RNDX6+9): LET 
y=16-x+INT (RNDX(2%x-8)): PRINT 
AT x;y5 OVER 15 INK 75CHR$ (144 
+INT (RNDX3)): NEXT n 

8133 IF r=25 OR r=32 OR r=39 THE 











N FOR n=1 TO 19: LET x=INT (RND 
X649): LET y=16-x+INT (RNDK(Zkx- 
8/): PRINT AT x,y OVER 15 INK 7 
JCHRS (147+INT (RNDK2)): NEXT n 

8134 IF r=15 THEN PRINT OVER 1 
5 INK 25AT chx,chys*t "JAT chx-d 


schys eu re 
8135 IF r=28 THEN PRINT OVER 1 
JAT 3,65ºD ABCD G"jAT 4,55" 


C EFGHIU FE“GAT 5,4; "EE 
SHºGAT 6,35" 
ED";AT 7,35"A e 
8159 FOR n=1 TO 19: IF otn,1)<r 
THEN GO TO si6d 
8152) POKE 23675, 96+88%(n<6): POK 
E 23676,252+(n)5): LET o=148+4%( 
n-5k(n>5)): PRINT INK 5; OVER 1 
FAT otn,2)-1,0(n,5)ICHR$ o+CHRS 
to+1) FAT o(n,2),0(n,3)FCHR$ (o+2 
J+CHRS (o+3) 
8168 NEXT n 
8176 FOR n=1 TO 34: IF PEEK (634 
52+4kn)<)r THEN GO TO 8189 
8172 POKE 27675,8+168%(n)=26)-88 
X(n)=32): POKE 23676, 254+ (n)=52) 
: LET 0=138+6k(n<=12 OR (n)=26 A 
ND n<=29) OR n=52)+12%((n)=15 AN 
D n<=22) OR n=38 OR n=35)+18%((n 
)=23 AND n<=25) OR n=31 OR n=34) 
2 LET x=PEEK (63453+4kn): LET y= 
PEEK (63454+4%n) 
8174 PRINT INK 35 OVER L5AT x-2 
+ YICHRS O+CHRS (otI)FAT x-L, y5CH 
R$ (0+2)+CHRS (Ot3VIAT x, yICHRE 
(0+4) +CHRS (0+5) 
Bisg NEXT n 
8182 IF r=5 THEN LET as="A stra 
nge voice says: Go back, the evil 
skeletons will Kill you.Only an 
object of power frightens them. 
“7: GO SUB 8498: GO SUB 8459 
8199 RETURN 
6300 REM XkStart new GamekkHHHH 
8395 RESTORE 8335 
B319 LET r=9: LET dir=1: LET wkx 
=14: LET wky=11: LET wkd=152: LE 
T liferg=184: LET lifold=184: DI 
M q(6): LET object=2: LET q(ii=1 
: LET wiz=9: LET chx=19: LET chy 
=8: LET lit=9: LET open=9 
8339 DIM o(18,3): FOR n=1 TO 18: 
FOR m=1 TO READ ai LET otn;m 
1=a: NEXT m: NEXT n 
8335 DATA 9,9,9,1,19,8,8,14,5,2; 
14,16,2, 14,28 
8336 DATA 36,14,11,13,19,8,32,11 
, 11,65, 19,8,59,12,5 
8348 FOR n=63456 TO 63591: READ 
a: POKE n,a: NEXT n 
8341 DATA 6,12,18,19,6,11,11,19, 
7,14,11,19,7,11,14,19,13,12,6,18 
,13,19,11,19,1:4,12,4,18,14,14,11 
, 19,26, 12,18, 19,20, 12,8,19,21,14 
,11,19,21,19,11,18 
8342 DATA 1,12,11,5,2,12,4,5,2,1 
2,18,5,8,12,11,5,19,52,11,5,498,1 
2,18,5,48,12,4,5,48,9,14,5,48,9,! 
8,5,48,13,11,5 
8343 DATA 44,12,6,19,45,12,6,19, 





39 





46,12,6,18 
8344 DATA 15,11,11,9,22,11,11,9, 
29,11,11,9,36,11,11,9 

8345 DATA 43,12,11,1,24,11,11,39 
+32,11,11,25,49,11,11,13,35,11,1 
1,11 

8399 RETURN 

8408 REM KkPrint Messagexyruaar 
8495 FOR m=17 TO 21: PRINT AT m, 
dg 

NEXT m 

Bagé LET m=17 

8419 LET px=31 

8415 IF LEN as<=58 THEN PRINT A 
T myljas: RETURN 

8429 IF aS(px)=" “ THEN PRINT A 
Tm, ljas( TO px-1): LET mami: L 
ET as=as(px+i TO so TO Bata 
8425 LET px=px-1!: GO TG sazg 
8459 REM KkWait sor keyftosnuner 
8451 IF SCREENS (21,1)<>"" AND S 
CREENS (21,2)<>"" THEN PRINT AT 
21,3/"Press any key to continue 
8469 LET as=INKEY: 
THEN GO TO 8469 
8479 RETURN 

8599 REM kkPrint ObjectsiHHaHHr 
8593 FOR m=2 TO 7: PRINT AT m,23 
ly "7 NEXT m 

8595 FOR m=i TO object-1 

9519 POKE 23675, 96+88%(q(m) <=5): 
POKE 23676, 252+ (tm) >=6) ) 
8515 LET a=149+4k(qim) -Sktq(m)>5 
1): LET px=2KINT (m/2+.5): LET p 
y=23+2%(m/2=INT (m/2)): PRINT 1 
NK S5AT px,pyFCHRS as+CHRS (att) 
AT px+L,pyICHRS (a+2)+CHRS (at3) 
8529 NEXT m 

8539 RETURN 

8359 REM káPlot Life energyatkkk 
8555 IF lífergc9 THEN LET lifer 
gg 

8569 IF lifold>liferg THEN FOR 
p=lifold TO lifergt+i STEP -1: PL 
OT OVER 15291,55+p: DRAW OVER 
155,9: BEEP .91,20: NEXT p 

8565 IF lifold<liferg THEN FOR 
p=lifold+1 TO liferg: PLOT 241,5 
S+p: DRAW 5,9: BEEP .91,20: NEXT 
Pp 

8378 LET lifold=liferg: RETURN 
S69O REM HHTIt LesHnanEnanHaHaD: 
8619 LET g&="Lord of Darkness” 
8628 FOR n=i TO LEN qt: LET ad=ó 
3336+BXCODE quen) 

8638 FOR m=Q TO 7: FOR 0=8 TO 1 
8649 POKE 1639B+n+512%(m-4%(m>=4 
)1+32% (m)=4) +256%0, PEEK (adtm): 
NEXT o! NEXT m: NEXT n 

8649 RETURN 

8659 REM *DeadidtaHonaaHanHanar 
8668 FOR n=2 TO 14: PRINT AT n,3 
Bj" "2 NEXT nº PRINT AT 8,0) "qeu 











IF INKEyS="" 


You're dead “ 
You didn't survive E 
this adventure a) 


ES amas rea or see 
8665 FOR n=8 TO 7: PRINT AT n,95 
PAPER gy" 
*: BEEP .1,-n: NEXT nº: 

FOR n=13 TO 21: PRINT AT n,85 P 
APER Bj" 

*: BEEP .1,-n: NEXT n 
8466 PRINT AT 21,9; FLASH 1; "Key 
Key Key Key Key Key Key Key * 
8667 LET bS=INKEYS: IF bS="" THE 
N GO TO 8467 
8678 G0 TO 48 E 
8798 REM £kPaint objects persons 
8718 FOR n=1 TO 19: IF otn,1)=r 
THEN PRINT OVER 13 INK S$AT a( 
n,2)-1,0€n,3)5º "FAT otn,2),0(n 
Rap 
8728 NEXT n A 
8738 FOR n=1 TO 34: IF PEEK (634 
52+4kn)=r THEN PRINT OVER 1j I 
NK S5AT PEEK (63453+4%n) -2, PEEK 
(63454+4%n)9" "PAT PEEK (634534 


40 


O SENHOR DAS TREVAS 


4%n)-1,PEEK (63454+4%n)5” “FAT 

PEEK (63453+4%n), PEEK (63454+4%n 

ap * 

8748 NEXT n né 

8745 RETURN 

8758 REM on SBIS BRaHHHAHE 

B769 PRINT AT 8,9; FLASH 1" 

Con 

gratulations,ycou killed the E 

Lord df Darkness Esses 





E e mel 
8765 FOR n=8 TO 7: PRINT PAPER 


.BIAT n,84* 


*: BEEP .4,nº NEXT nº: 
FOR n=12 TO 21: PRINT PAPER g;A 
Tn,9" 





BEEP .1,n: NEXT n 
8778 LET bS=INKEYS: IF b8="" THE 
N Go TO 8778 

8788 60 TO 4g 

9800 REM *kInitialisationkeresax 
9895 RESTORE 9829 

9910 DIM r$(49,4): FOR n=i TO 49 
: READ rS(n): NEXT n 

9026 DATA "GISO”, "GIL", "gigi*,* 
BOL1”, “BIG”, *B1O1”, "goi 

9821 DATA "GIGG", "1111", "Gg11”,* 
1198", “1611º, *G119", "1911 

9822 DATA "BB1G”,"1BIG”,"1199",* 
O1O1”,"19G1", "1100", "Igi1s 

9923 DATA "1919", "1119", "go11”,* 
BLOGO", "BIBI", "GIBI", "IgaI* 

9824 DATA "LIIG”,"IBIL”, "IgIg",» 
1919", "GLIG”, "BIBI", rIggi* 

9825 DATA "1908", “1199”, “1161*,* 
1091", "1119", "ABI", "gagi* 

9826 DATA "GIBGS, "GIBI", "gIBI",* 
BIBI", “11G1", GIBI”, "goal * 

9030 DIM o8(19,11): FOR n=1 TO 1 
9: READ os(n): NEXT nº DATA “smo 
rd", "shield", "axe", *torch”, ºtind 
er box", *key*, “ring”, *sceptre”,* 
book", "magic smord* 

?848 DIM b(9): FOR n=1 TO 9: REA 
D btn): NEXT DATA 4,4,2,5,4,4 
s12,4,4, 

7059 DIM pS(9,8): FOR n=i TO 9: 
READ ps(n): NEXT nº: DATA “skelet 
on", "guard", “bat*, "spider", "magi 
cian*, "wizard", “balrog”,“lord*,* 
wyvern" 

P068 DIM cm(8,5): FOR n=1 TO 8: 
READ cs(n): NEXT nº DATA "light“ 
sCunlit", "give", “sayº, “read”, "he 
Ip", "open", “close* 

9499 RETURN 

9590 REM HInstruct tonsitinanans 
9505 CLS : GO SUB g6gg 

9510 PRINT AT 3,8;"In a dark pla 
ce in Middle Earth, Morbihan stan 


ds the castle of the Lord of D 
arkness. This half-spi 


rtt,half-human creature want 
s to take over the morid.” 

9515 PRINT "The kings of the sur 
roundíng countries have alrea 
dy tried to defeat him, but theí 
r armies arenot strong enough to 
battle mithdark and evil magic. 

















9529 PRINT "So, the kings have d 
ecíded to defeat the Lord in a 
nother way. A very brave and cle 
ver man has to break into the ca 
stie and K411 the Lord. * 

9525 PRINT “You, the White Knigh 
t, has to perform this mission 


9527 PRINT AT 21,8] FLASH 1; "Key 
Key Kay Key Key Key Key Key 
9528 LET bS=INKEYS: IF bS="" THE 
N 60 TO 9528 E 
9539 CLS : PRINT "You start this 
adventure at the point mhere th 
e White Knight hasjust entered t 
he castle through a secret passa 
genay.” . 

9531 PRINT **You always see a gr 
aphical representation of t 
he room, plusall the objects and 





“us, think. 


persons 
me” 
9532 PRINT "*At the right of the 
screen, thereis always intormati 
on about the objects you're carr 
ying,your life energy and you 
r action points. =” 

9533 PRINT '*At the bottom of th 
e screen appear the messages 
which informyou about your acti 
ons and aboutthe actions of the 
creatures youwill meet.” 

9534 PRINT AT 21,9; FLASH 15 “Key 
key Key Key key Key Key Key * 
9535 LET bG=INKEYS: IF b8="" THE 

N Go TO 9535 

9549 CLS : PRINT "vou can pertor 
m actions by , pressing the 4 
irst letter of thenord (see main 
menu). The difterent 
actions are:* 

9541 PRINT '*MOVE: You can move 
the White Knight around the r 
com, using the cursor keys. You 
can go to other rooms by goin 


present ín this rõo 


9 through doors.” 
9542 PRINT '“EXAMINE: You can ex 
amine anything in the rao 


.m, but not the objects you're 


carrying.* 
9543 PRINT "“TAKE :This is abvio 





9544 PRINT ""DROP :cfr. TAKEº 
9545 PRINT AT 21,01 FLASH Lp “Key 
Key Key Key key Key Key Key * 
9546 LET bB=INKEYG: IF bf8="" THE 

N GO TO 9546 
9558 CLS : PRINT “FIGHT :You can 
fight with the  creatures you 
meet. Altough you will need the 
help of some of them... The mo 
re weapons you have, the stron 
ger you are." 
9551 PRINT "“LEFT-RIGHT VIEW :Yo 
u can rotate the room.Lett means 
clockwise, right anti-clocknis 
e.All objectsand persons will ro 
tate as well. This enables you to 
see the *fourth" wall. * 
9552 PRINT ""STOP :You stop the 
action, The other creatures mil 
1 now performtheir actions.” 
9593 PRINT * "OTHER COMMAND :You 
can enter anyother command, i.e. 
open door, give knife to guard 
» help, say hello...ete...* 
9555 PRINT AT 21,94 FLASH 1j "Ke 
key Key Key Key Key Key Key " 
9557 LET bS=INKEYS: IF b&="" THE 
N GO TO 9557 , 
9568 CLS : PRINT “At the beginni 
ng of the 9 youget a certain 
amount of lite energy.This re 
presents your phisical condi 
tion.When your life energy te 
vel rates zero, you're dead an 
d the game is over” 
9561 PRINT "At the beginning of 
each "turn" you get action point 
s.Fach time you perform an actio 
n,;you lose some action points. Y 
ou can perform actions unti 
11 you enterthe command STOP, or 
untill youraction points fall b 
elow -19.In this case a STOP com 
mand is executed automatical 
1y.* 
9562 PRINT "The action points yo 
u get are  proportional to your 
life energyWhen you enter STOP, 





























the remaining action poi 
nts are added to your lite e 
nergy, positive or negative 
«You can aiso lose life energ 


y in combat.” 
7563 PRINT 49J FLASH 15 "Key key 
Key Key Key Key Key Key * 

9564 LET bS=INKEYS: IF b&="" THE 


60 TO 9564 
0.0 


9578 RETURN 


